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BASSUP1_TERM_10 16-Sep-1984 01:18:57 AX-11 Bliss-32 v4.0-74 Pa 
| ats a ee VOTE th hg Pte al 
1 MODULE BASSUPI_TERM 10 ( ' Terminal | igvel 
0 IDERT = "1-007" ' File: BASTERMIO.832 EDIT: PLL1007 
004 


BEGIN 


; 

3 4 

; 5 005 1! 

g § 47 : 1 pap phi amc aN or Se 90+ nen 
4 '® * 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 . 
: 9 484 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
; 19 BY : - ALL RIGHTS RESERVED. * 
Py : « 
; \¢ O02 1 !* THIS SOFTWARE IS FURNISHED nes A LICENSE AND MAY BE USED AND COPIED * 
a 015 1 !* ONLY IN ACCORDANCE WITH THE TER a OF SUCH LICENSE AND WITH THE * 
; 0014 1 !* INCLUSION OF THE ABOVE COPYRi Ht NOTICE. THIS SOF TWARE OR ANY OTHER * 
H 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 B28 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 i it tA } 4 TRANSFERRED. * 
4 i‘ 7 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; He Bos) : ‘* CORPORATION. . 
3 ‘tf x 
3 s§ 0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR Sch SABEL ITY OF ITS * 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
; 25 0025 1 !* * 
; 0026 1 !* * 
3 27 ViPY MERC ES IIIT ITT rrr rrr Trt i ttt TTT iti tii titi Lititiiititiititiiit 
; a 0028 1! 

5 2 Ones 1 

: 0030 1 !++ q 

3 3 it : FACILITY: Basic support Library - User callable 

3 38 5038 1 ! ABSTRACT: 

3 4 0034 1! 

; 2 0035 1 ! Provides the User Program Interface (UPI) level of support for Basic 

; » 0036 1 ! terminal 1/0. 

co a 0037 1! 

3 $ ais : : ENVIRONMENT: User access mode; AST reentrant 

: 7 open : AUTHOR: Donald G. Petersen, CREATION DATE: 23-Aug-79 

: $§ 004 1 ! MODIFIED BY: 

; «6 0043 1! 

3; (44 Bote 1 ! 1-001 = Original done ee Macro se BASIOELEM.MAR. wh. 20-Mar-78 

45 045 1 ' 1-002 - Rewrite BASIOELE n Bliss. DGP 

; 8646 R006 1 ! 1-003 - Make the ne “entty pg «Points GrOBAL” JBS “12 2SEP=1979 

3; 667 0047 1 ! 1-004 = Add BASS$SIN JBS 1 P-1979 

: 48 0048 1 ! 1-004 = Add Linkages to CALL a nit routines. DGP 12-Sep-79 

; $3 sr ! } 1-005 = BASS$OU UT p V_.8 incorrectly uses a semicolon format character. O0GP 

4 . -$ Se a 

,; Ft boas 1 ! 1-006 = Add at EE for byte, gfloat, and hfloat. nyt 24-Aug-81 

3 26 O36 1 ! 1-007 = Add support for packed decimal. PLL 5-Oct-81 

oS Bee 1 !-- 

: «(54 054 1 

; 0055 1 !<BLF/PAGE> 


cc F OOOO ?v .rRR O Ole OS: 


| 
| PastyPt_TERR_10 


; 7 p096 1! 

; 3 1 ! SWITCHES 

3 b28 1! 

; 0 1 

;. 60 1 

; ¢ 061 1 

Fs. @ 062 1! 

; 065 1 ! LINKAGES 

3; & 064 1 

>; 66 065 1 

; «67 8066 1 REQUIRE "RTLIN:BASLNK’; 

; & Bie 1 

: $9 144 1 REQUIRE "RTLIN:OTSLNK’; 

3 0 0573 «1 

; 0574 1! 

Pe 0575 1 ! TABLE OF CONTENTS: 

i, 2 0576 1! 

ee 0577 «+1 

: 675 0578 1 FORWARD ROUTINE 

; 2 0579 ~=1 BASSIN_L_R : NOVALUE, 

Pe i 0580 1 BASSIN_ WR : NOVALUE, 

; RR 0581 1 BASSOUT_C_V_S : NOVALUE, 
; 7 0388 1 BASSOUT"L_V_C : NOVALUE, 
; 05835 1 BASSOUT_L_V_B : NOVALUE, 
aa) 0584 1 BASSIN_F_R = NOVALUE, 

; § 0585 1 BASSOUT_F_V_S : NOVALUE, 
pa 0586 1 BASSOUT-F-V"C : NOVALUE, 
; 0587 1 BASSOUT_F_V_B : NOVALUE, 
3; 85 0588 1 BASSIN_B_R = NOVALUE, 

; 3389 1 BASSOUT_B_V_S : NOVALUE, 
; or 590 1 BASSOUT_D V_C : NOVALUE, 
; «6288 0591 +1 BASSOUT_D_ V_B : NOVALUE, 
: «689 0396 1 BASSIN_T_Dx™: NOVALUE, 

; 0593 1 BASSOUT_T_DX_S : NOVALUE, 
; wt 0594 1 BASSOUT_T_DX_C : NOVALUE, 
; § 0595 1 BASSOUT_T_DX_B : NOVALUE, 
; 0596 1 BASSOUT_G_V_5 : NOVALUE, 
: 0597 1 BASSOUT_G_V"C : NOVALUE, 
e cy Se 0598 1 BASSOUT_G_V_B : NOVALUE, 
; 0599 1 BASSOUT_H_V_S : NOVALUE, 
; «97 0600 1 BASSOUT"H_V~C : NOVALUE, 
; | «98 0601 1 BASSOUT_H_V"B : NOVALUE 

: 99 060¢ 1 BASSOUT-P~DR_S : NOVALUE, 
; 100 0603 1 BASSOUT"P_DX-C : NOVALUE, 
3; 101 0604 1 BASSOUT-P-DX-B : NOVALUE, 
3 108 8609 1 BASSIN_G_R :"NOVALUE, 

3 ¥ 606 1 BASS$SIN_H_R : NOVALUE, 

3 1 607 1 BASSIN_B_R : NOVALUE 

> 105 608 1 BASSIN~P"DX : NOVALUE; 

3 18 4h 1 

; 10 10 7! 

: 108 11. 1°! INCLUDE FILES: 

3; 109 \§ Z. 

3 110 613 1 

: 111 614 1 REQUIRE 'RTLIN:RTLPSECT'; 

; 16 0709 1 

: 11 0710 1 REQUIRE ‘RTLML:BASPAR'; 


4 01:18:57 AX-11 Bliss- 4.0- 
4 9Fi 38:25 t Orne iaasrenay 


74 
BASRTL.SRCJBASTERMIO.852;1 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
: 


some Basic Linkages 
define all other Linkages 


Input longword by reference 

Input wor i reference 

output long by value, semi format char 

output long by val, comma format char 

output long by val, no format char 

input single float by ref 

output float by val, semi format char 

output float by val, comma format char 

output float by val, no format char 

input double float by ref 

output double by val, semi format char 

output double by val, comma fcrmat char 

output double by val, no format char 

input text by descriptor 

output text by desc, semi format char 
text by desc, comma format char 

output text by desc, no format char 

output G by value, semi format 

output G by value, comma format 

output G by value, no format 

output H by value, semi format 

y value, comma format 

Y value, no format 

£ 


PSECT macros 
Some Basic symbols 


Page 
. ( 


2 


ne 
F 6 

BASSUPI_TERM_10 16-Sep-1984 01:18:57 AX-11 Bliss-32 V4.0-74 Pa 

1 ay” 14-Sep-19 4 71 58:23 BASRTL. SRC IBASTERMIO 82:1 et 

REQUIRE "RTLML:OTSISB'; 

REQUIRE "RTLML:OTSLUB’; 

LIBRARY ‘RTLSTARLE'; 


1/0 statement block (1S8) 
logical unit block (LUB) 
STARTLET Library for macros 


oooo 
~~ 


; MACROS: 

NONE 

i PSECT DECLARATIONS: 
DECLARE_PSECTS (BAS); 
{ EQUATED SYMBOLS: 


PSECTs for BAS$ facility 


IAIN ononoronofnoronong 3 
—"OVOONOVFSWUN-"OVOOnCO 


wn 
MEW 9 OONAUES WN OC ODNO UE WN Ur 


RRPRRRARNARARAAARR ERE RE ER 


1 1 
1 1 
1 1 
1 1 
1 1 1 
1 1 1 
3 } 1 1 
7 2 1 1 
is 1 1 
3 Y 1 1 
, F 1 1 
3 ¥ 1 1 
2 1 1 
te 1 1 
3 1 1 1 
. 3% 1 1 
i % 1 1 
2 13 
; 37 1 1 LITERAL 
a 1 1 K_BYTE_LEN = 1, ! storage size in bytes of byte 
; 135 1 1 K_WORD_LEN = 2, ! storage size in bytes of word 
3 3 1 1 K_LONG_LEN = 4 ! storage size in bytes of longword 
3; (137 1 1 K-FLOAT_LEN = ' storage size in bytes of float 
rh, 1 1 K-DOUBLE_LEN = 6, ! storage size in bytes of double 
; 139 1 1 K_GFLOAT_LEN = 8 ! storage size in bytes of gfloat 
3 re : ! K_HFLOAT_LEN = 16; ! storage size in bytes of hfloat 
; 14 1066 1! 
: 128 1069 1 ! OWN STORAGE: 
> (144 1068 1! 
: 14g Bt dln 
3; 147 1071 1 =! EXTERNAL REFERENCES: 
we RY 
3; 199 1074 1 EXTERNAL ROUTINE 
s 13) 1075 1 BASSSUDF _RL1 : CALL_CCB, : UDF level element transmitter - Read 
3 136 1976 1 ! List directed 
3 1a 4 : BASSSSTOP : NOVALUE; ! signal an error and stop 
3 6195 1979 1 EXTERNAL LITERAL 
3 138 H+ : BASSK_DATTYPERR; ! data type error 
: 158 1082 1 EXTERNAL 
; 159 10835 1 OTS$$A_CUR_LUB ! Contains addr. of current LUB/ISB/RAB_ 
3 H+ ¢' Hi : BASS$$AA_UDF_PRi : VECTOR; ! dispatch vector to UDF element transmitters 


6 
ASSUPI_TERM_10 18-5 “1984 01:18:57 YAXe11. BLiss-32_v4.0-76 
3486 Ve-$ep-1986 V1ises40 — EBASRTL SReSBASTERAIO.B92; 1 


GLOBAL ROUTINE BASSIN_L_R ( ! input longword by ref 
!' element to input by reference 
) : NOVALUE = : 


oO 
uw 


SF 


'e¢ 


FUNCTIONAL DESCRIPTION: 
Input a longword, the destination is passed by reference 
FORMAL PARAMETERS: 


pojelelelelelelelololalelolo) 
~o 


CONAWUES WN OO 


3 1 1 

2 Be | 

4 ee 

i itt 

: 13 1 38 1! 

a 10946 1! 

3; 7 1095 1! 

3s i7 1 +] 1! 

; 4 i i } ELEM.rl.r where to store the longword input 

s; in 1 39 1 ! IMPLICIT INPUTS: 

. oF 1100 1! 

; 7 1101 1! OTS$$A_CUR_LUB current Logical Unit Block 

: iF 1136 ! 1SB$8_STTM_TYPE statement type of this 1/0 statement 
3 38) 11046 1°! IMPLICIT OUTPUTS: 

: iss 1105 1! 

3; 3 1106 1! NONE 

; «184 1107 1! 

; 185 1108 1 ! COMPLETION CODES: 

; #186 1109 1! 

; 187 1110 1! NONE 

3; «4188 117 +#7~°! 

; «4189 1346 1 ! SIDE EFFECTS: 

; 190 111 1 ! 

; «6191 1114 71:'! NONE 

3 136 1115 1! 

s 19 a | foo 

; 194 111 

3 399 1118 BEGIN 

; «196 1119 

3; 197 1120 GLOBAL REGISTER 

$ 138 \1$) CCB = K_CCB_REG : REF BLOCK C, BYTE); 

; 200 1138 CCB = .OTS$$A_CUR_LUB; 

> 201 1124 BASSSUDF_RL1 TDSCSK_DTYPE_L, ' data type Longword 
3 4 ais K_LON ‘ ' Length of data type 
; 1126 -ELEM, ! address of destination 
3; 204 1127 BASS$K_NULL); ! null format character 
3; 205 1128 TURN; 

; 206 1129 «#1 ND; ‘End of BASSIN_L_R 


TITLE BASSUPI_TERM_10 
“IDENT \1=007\ 

EXTRN BASSSUDF_RL1, BASSSSTOP 
EXTRN 


BASSK_DATTYPE 
TRN OTS$$A_CUR_LUB, BASSSAA_UDF _PR1 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


0800 00000 ENTRY BASSIN_L_R, Save R11 
5B 000000006 00 D0 00002 MOVL  OTSSSATCOR‘LUB, CCB 


Fagy” t= "EAn.10 HESSOcH9RE QU:EEED YANG ShSaRE tala’. toc 


7E 04 CLRL =(SP) 31124) 
04 ay DOD PUSHL ELEM : 1126 
8 DOD PUSHL #4 : 1124 
8 DD 1 PUSHL #8 : 
000000006 00 04 FB 0001 CALLS #4, BASSSUDF_RL1 3 
04 0001 RET 3 1129) 


3; Routine Size: 26 bytes, Routine Base: _BASSCODE + 0000 


; 207 1130 1 


Ass P1_TERM_10 


—— 
AUN ODS NONE OOO NOME AOD 


CAA et tere ae ae ed a a 


Fy at et at et ee 


WI & 


NM—DOWOONOUESWN—O0On 
a a a a a ee a ee a ed ed a a dd 


a a ed dd 
SNS NAAAAAAAA AA MMM BBB EEE PAI 
FUN $9 OONAUNE WIN SO OONOAOU EWN (OOD NOUS WO OONOUE WN 


SPLIT III III III II a a a st a dd dd 


ROPIPNPONINYNININININININNONoNofPofonofnononononys 


w 


GLOBAL ROUTINE BASSIN WR ( 


) : NOVALUE = 


as 
FUNCTIONAL DESCRIPTION: 


6 
1ac$ep-198e 11:56:42 — EBASRTLSRESBASTERALO 


} input word by ref 
element to input by reference 


Input a word, the destination is passed by reference 


FORMAL PARAMETERS: 
ELEM.ww.r 
IMPLICIT INPUTS: 


OTS$$A_CUR_LUB 
1SB$B8, STTM~TYPE 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 
BEGIN 
GLOBAL REGISTER 


where to store the longword input 


current Logical Unit Block 
statement type of this 1/0 statement 


CCB = K_CCB_REG : REF BLOCK C, BYTE); 


CCB = .OTS$$A_CUR_LUB; 
BASSSUDF_RL1 TDSCSK_DTYPE_w, 
K_WORD_LEN, 


ELEM, 
BASSK_NULL); 
RETURN; 

END 


08 
5B 000000006 90 


000000006 00 


! data type word 

' Length of data type 

' address of destination 
' null format character 


‘End of BASSIN_W_R 


o£ 


R, Save R11 
B 


00 000 BASSIN_ 

D0 00002 OTS$$A~COR.LUB, CC 
D4 00009 CLRL -(SP) 

DD 0008 PUSHL ELEM 

DD 000 PUSHL # 

DD 000 PUSHL # 

FB 000 CALLS #4, BASSSUDF_RL1 
04 000 RET 


PASEUPI_TERM.10 1boseort96e O1:]8:57 YaKedH OLise=82 y4soa74g, | Page 7 


; Routine Size: 26 bytes, Routine Base: _BASSCODE + 001A | 


; 253 1175«1 


BASSUPI_TERM_10 


aN Sh heh eae 
= 


COCDCD CO 
Wwr—O0ow 


SSSIEAR 


ee ee ee ee ee ee De ee ed ed ed ed od ed ed od 


PIF IFIFIPIPIIIIIP II II a a tk i a a a dd dd 


K 6 
Ve-Sep=1986 1:56:42 EBASRTL “SRE SEAS 


GLOBAL ROUTINE BASSIN_F_R ( ! input float by ref 


' 
) : NOVALUE = element to input by reference 


'o4¢ 


FUNCTIONAL DESCRIPTION: 


Input a single precision floating, the destination is passed by reference 
FORMAL PARAMETERS: 

ELEM. rf.r where to store the float input 
IMPLICIT INPUTS: 


OTS$$A_CUR_LUB current Logical Unit Block 
1SB$B_STTM_TYPE statement type of this I/0 statement 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

NONE 


BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_LREG : REF BLOCK C, BYTE); 


CCB = .OTS$$A_CUR_LUB; 
BASSSUDF_RL1 TOSCSK_DTYPE_F, ' data type floating 
K_FLOAT_LEN, ; length of data type 
; 


-ELEM, address of destination 
BASSK_NULL); null format character 
RETURN; 
END; ‘End of BASSIN_F_R 


0800 00000 Pn ha BASSIN_F_R, Save R11 


0 
5B 000000006 90 B? BbOS ot OTSS$A_COR_LUB, ccB 
os a te 
DD 000 PUSHL #10 
000000006 00 00 CALLS #4, BASSSUDF_RL1 
04 000 ET 


4.0- 
BASRTL.SRCJBASTERM 


PASSUPT TERR. 10 


; Routine Size: 


>; 299 


26 bytes, 


1220 1 


Routine Base: 


-BASSCODE + 0034 


Sastre 


y$-seo-]964 91:18:52 yanedt lis 


4.0-74 
RMIO.B 


n 6 | 
BASSUPI_TERM_10 16-Sep-1984 01:18:57 _YAK=11 Bliss-32_v4.0-74 Page 10 
iby Ve-$ep-1986 11:56:42 EBASRTLOSRETBASTERATO.B82; 1 age by 


GLOBAL ROUTINE BASSIN_D_R ( ! input double by ref 
! element to input by reference 
) : NOVALUE = ! 


+ 
FUNCTIONAL DESCRIPTION: 
Input a double, the destination is passed by reference 


IN WNI WIIwIinononorereroronon 


CONAULSWN OO OONOUS wn 


; 301 1 1 

; 30 1 1 

3; wD 1 1 

3; 304 1 1 

; 305 ! : 1+ 

: 309 1559 1 i 

3; 308 1 1! 

; 309 1 1! 

+4 i? : : : FORMAL PARAMETERS: 

: \ : : } ELEM.rd.r where to store the double input 
3 1% ; : IMPLICIT INPUTS: 

>; 316 1 tt OTS$$A_CUR_LUB current Logical Unit Block 

: i ise ! 1SBSB_STTM_TYPE statement type of this 1/0 statement 
3 319 1339 1 ! IMPLICIT OUTPUTS: 

; 320 1240 1! 

s 32% 1241 1! NONE 

3 $56 iste 1! 

: 124 1 ! COMPLETION CODES: 

: 324 1244 1! 

s Ses 1245 1! NONE 

; 326 1246 1! 

3; 327 1247 1 ! SIDE EFFECTS: 

; 328 1248 1! 

3; 329 1249 1! NONE 

: 330 1250 1! 

. Sa 1¢31 1 l= 

> ia 1 26 1 

3 $37 1253 2 BEGIN 

3 «334 1254 § 

3; 335 1255 GLOBAL REGISTER 

; $39 1526 § CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3; 338 1258 § CCB = .OTS$$A_CUR_LUB; 

3 339 1259 BASSSUDF_RL1 TDSCSK_DTYPE_D, ' data type 

; 340 1260 $ K_DOOBLE_LEN, ! Length of data type 
3; «(341 1261 ELEM, ' address of destination 
: m4 1666 2 BASS$K_NULL); ' null format character 
: 1263 2 RETURN; 

; 4 1264 1 END; ‘End of BASSIN_D_R 


0800 00000 ENTRY BASSIN_D_R, Save R11 : 1221 

5B 000000006 90 D0 9002 Rov TSS$A_COR-LUB. CCB : 1258 

04 AC DD 00008 PUSHL EM : 126) 

Se 3 SSE ie 
000000006 00 4 £8 00012 CALLS #4, BASS$SUDF_RL1 : 
04 0001 ET : 


4.0-74 Page 


11 Bliss-32_V 
YBASRTL SRE SBASTERMIO.092;1 


AX- 


6 
1e-86p-1984 11:56545 


4 
4 
Sr 
z 


11) 
(6) 


=BASSCODE + 004E 


26 bytes, Routine Base: 


3; Routine Size: 


1 


1265 


een 
BASSYPTTERA_IO 


ye A Hy eee at ap 
WN OOONAUNES WN —OOOn 
POPITOPOPONINIPIPINIPPoNonopoporononon 

Ss 


60 O09 09 09 09 09 0909 C009 09 SII INI NI NINO OO 


FPWR ( O ODNANE WN -2 SO ODNAUESWN (OOONAOUSWWN OOO 


aan 
NOwu 


79 


VRALASSS 
ODOODOOCOCOCOCOCVCOOOOOOO 


m—ODOONOM 


SSS sss > sss 
Bee Be Be Se Se Fe Se Ge Se Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Sse Se Ge Ss Se Ge Ge SF Ge Se SSeS Se FHS Se Se Se Se Se Se esesese 
LAA AANA AA 
INN 
-—oO 
ee a ee eB ce ee ee ee a ee a ee ee a ee a a ed 


SSS 
a ray 


$32 


GLOBAL ROUTINE PASSIN_T_DX ( 
) : NOVALUE = 


put text by desc. 


-1984 01:18:57 AX-11 Bliss-32 
ets 97:88:25 BASRTL. RCIBAST 
1 j 
element to input by reference 


-sS 


FUNCTIONAL DESCRIPTION: 
Input text, the destination is passed by descriptor 
FORMAL PARAMETERS: 
ELEM. rt.dx where to store the text input 
IMPLICIT INPUTS: 


OTS$$A_CUR_LUB current Logical Unit Block 
ISBSB_STTM_TYPE statement type of this 1/0 statement 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

NONE 


BEGIN 

GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 

MAP 
ELEM : REF BLOCK (8, BYTE); 

CCB = .OTSS$$A_CUR_LUB; 

BASSSUDF_RL1 TDSCSK_DTYPE_T, 
ELEM COSC$W_LENGTH), ' : 
ELEM, ' address of descriptor 
BASSK_NULL); ! null format character 

hae, 


ND; 'End of BASSIN_T_DX 


data type 
string length 


0800 00000 ENTRY BASSIN_T_DX, Save R11 
58 000000006 90 0 9000 MOVE TS$$A~COR_LUB, CCB 
E D4 0000 CLRL 0 = (SP) 
04 AC DD 00008 PUSHL ELEM 
04 AC DD 0000E PUSHL ELEM 


v4. _ 


0 vat 
M10.852;1 


rc 


BASSUPL_TERM_10 


; Routine Size: 


: 394 


27 bytes ° 


1313 1 


7 
$5 “1984 01:18:57 AX-11 BLi 
14-Sep-19 4 Mi iseies BASRTL.S 
OE DD 00011 PUSHL #14 
000000006 00 04 FB 00013 CALLS #4, BASSSUDF_RL1 
04 OOO1A RET 


Routine Base: _BASSCODE + 0068 


ss-32 V4.0-74 


RC JBASTERMIO.852;1 


Page 13 
. (7) 


3 1312) 


ae 
BASSYPT_TERA_10 
i 
99 
400 


408 


Sek ek et et et at et tet et 
NW A? 4h Veh Nas! ae eee ty oe vere | 
WN —O ODONOUSWN “OVO ONOuULrWN—OoO 


BOA OAR RRUNITUUY 
rae 


Ww 
ovon 
FAN OS ODNA UE WN HO OD NAME WN OO ODNAOU EWN OOODNOUEWWR OWONOUE 


SOOO 


SPIN ININININIPINININININININIAI II IIIA sk kd dd dd dd 


:57 rest Oi reget v4.0- Page 


:1 74 
56:42 BASRTL.SRCJBASTERMIO.8352;1 


t longword by value, semi format character 
ent to print by value 


323 — > 


GLOBAL ROUT INE BASSOUT_L_V_S ( 
) : NOVALUE = 


eo 


i FUNCTIONAL DESCRIPTION: 

: Output a longword, the source is passed by value 
i FORMAL PARAMETERS: 

ELEM.rl.v lLongword to print 
i IMPLICIT INPUTS: : 


OTS$$A_CUR_LUB iS current Logical Unit Block 
ISB$B_STTM_TYPE statement type of this 1/0 statement 


! 

' 

' 

1 

' 

] 

' 

' 

! 

' 

' 

i IMPLICIT OUTPUTS: 
; NONE 

i COMPLETION CODES: 
; NONE 

i SIDE EFFECTS: 

: NONE 

! 


BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


* CCB = .OTSSS$A_CUR_LUB; 

i Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
! element transmit for prompting or for printing. Therefore, based on the 
statement type, either the INPUT or the PRINT UDF will be called. 


(BASSSAA_UDF_PR1 + .BASSSAA_UDF_PR1 [.CCB CSBSB STIM_ TYPE] - ISBSK_BASSTTYLO + 13) (DSCSK_DTYPE_L, 
- Gata 


type 
K_LONG_LEN, : length of data type 
, ' address of value 
BASSK_SEMI_FORM ! semicolon format character 
RETURN; 
END; ‘End of BASSOUT_L_V_S 


0800 00000 -ENTRY BASSOUT_L_V_S, Save R11 : 


1314 


| 7 

1_TERM_10 18-5 -1 1:18:57 AX-11 Bliss-32 V4.0-7%4 Page 15 
BARD - eae ran TEES SP yet thet Pt Pte) Oe 9° a) 
58 000000906 00 po 9002 MOVL  OTS$SA CUR_LUB, cB 3 1351 
0 FF71 C8 A 00 MOVZBL -143(CTB),R + 1357 

50 0000000060040 D0 0000E MOVL BASSS$AA_UDF_PR1-104(R0J, RO : 

01 0D 00016 PUSHL #1 : 

04 AC 9F 00018 PUSHAB ELEM : 

04 DD 00018 PUSHL #4 : 

08 DD 0001D PUSHL #8 ; 

0000000060040 04 FB OO01F CALLS #4, BASSSAA_UDF_PRICROJ : 
04 00027 RET + 1364 


; Routine Size: 40 bytes, Routine Base: _BASSCODE + 0083 


; 447 1365 1 


fF 7 
BA 1_TERM_10 16-Sep 4 Ol: AX-11 Bliss-32 V4.0 Pa 16 
#438 14-Sep 71382 9 48:25 BASRTL.SRC BASTERMIO. B82: 37 - (9) 
; 449 1 1 GLOBAL ROUTINE BASSOUT_L_V_C ( ! print a longword a | value, comma format character 
3 «6 ? 1 1 ELEM ; element to output by value 
3s 6 1 1 ) : NOVALUE = ; 
; 4 ¢ 1 1 
; 4 1 1 44 
3 2 ¢ } : FUNCTIONAL DESCRIPTION: 
3 2 $ : : Output a longword, the source is passed by value 
; 458 1 1 ' FORMAL PARAMETERS: 
; 459 1 1 
5 ree ; } ELEM. rl.v lLongword to print 
: re 4 : ; IMPLICIT INPUTS: 
> 464 1 1} tt eery CUR_LUB current Logical Unit Block 
: £69 ' ¢ | ISBSB_STTM_TYPE statement type of this 1/0 statement 
3 ae? 1384 1 ' IMPLICIT OUTPUTS: 
> 468 1385 1 
; 469 1386 1 NONE 
; 470 1387 1: 
3 471 1388 71 ' COMPLETION CODES: 
; 47 1389 1! 
3; 47 1390 1 NONE 
3; 474 1391 1: 
; 475 1 88 1 | SIDE EFFECTS: 
; 476 1393 1! 
3; 477 1394 1! NONE 
; 478 1aa2 1 
3; 479 139% 1 i- 
; 480 1397 1 
; 4481 tb BEGIN 
; 48 1399 
; 48 1400 GLOBAL REGISTER 
: 484 1401 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
> «4485 1008 
3 $38 1eb2 , CCB = .OTSSS$A_CUR_LUB; 
; 488 1405 i Dispatch to the UDF Level. Oieeeted ing is done because this may be a PRINT 
; 489 1406 ' element transmit for prompti ng or for printing. Therefore, based on the 
3 $30 et i statement type, either the INPUT or the PRINT UDF will be called. 
: rt: 169? (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 [.CCB oe ne TYPE] = ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_L, 
3 ata 
3 49% 1411 K_LONG_LEN, ' Length "a data type 
3 495 a ECEM, ~ i address of value 
3 rh] 141 BASS$K_COMMA_FOR i comma format character 
3; 49 1414 . 
: 698 1415 RETURN; 
3; 499 1416 END; ‘End of BASSOUT_L_V_C 


0800 00000 ENTRY BASSOUT_L_V_C, Save R11 : 1366 


———— 
pass 1, TERM_10 


58 wovepnere 00 
FF71_ ~=C¢B 
50 0000000060040 


02 

06 AC 

04 

08 

0000000060040 04 

; Routine Size: 40 bytes, Routine Base: _BASSCODE + 
; 500 1417 1 


0OAB 


18 se 19 
14-Sep-19 


ee 


Be 91:58: 


ASRTL.SRCJBASTERMIO.B32;1 
TS$SA_CUR_LUB, CCB 

-143(CCB),"R 

BASSSAA_UDFPRI-104CRO], RO 


ELEM 
a 


57 ett Bliss-32 V4.0-74 
242 8 
0 


rT) 
#4, BASSSAA_UDF _PRICROJ 


Page 17 


(9) 
1403 
1409 


1416 


ew 


47 
| BASSUPI_TERM_10 16-Sep-1984 01:18:57 YAX=11 BLiss-32_v4.0-74 Page 18 
hi) setae 1eep=198e iiseseo — Yeasnte sre deasrennio.682;1 9610) 
. ' p 
e 


3 be 1018 1 GLOBAL ROUTINE BASSOUT_L_V_B ( ! print longword by value, no format character 
3 87 1419 1 M ! element to output by value 
; 14 Y 1 ) : NOVALUE = : 

: 302 1 i ‘es 

; oF 14 5 i FUNCTIONAL DESCRIPTION: 

; 09 12 5 \ Output a longword, the source is passed by value 

; 1 14 ; | FORMAL PARAMETERS: 

; 18 \° ; ; ; ELEM.rl.v lLongword to print 

: 15 14 1 i IMPLICIT INPUTS: 

; 219 14 : ii OTS$$A_CUR_LUB current Logical Unit Block 

3 319 16 r ! 1SB$8_STTM_TYPE statement type of this 1/0 statement 

; 20 1436 1! IMPLICIT OUTPUTS: 

; $21 14 1! 

RR 

: 524 1440 1 ! COMPLETION CODES: 

s 325 1441 1! 

: 356 1268 1 | spite 

: 528 1444 1! SIDE EFFECTS: 

; 529 1445 1! 

s 330 1048 1! NONE 

; 531 144 1! 

3 236 1448 1 !<- 

coe 1449 1 

3 23¢ 1029 BEGIN 

; 536 1458 GLOBAL REGISTER 

3 tA oe CCB = K_CCB_REG : REF BLOCK C, BYTE); 

; 339 1455 @ | CCB = .OTSSSA_CUR_LUB; 

: 541 1489 i Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
3 206 1458 ! element transmit for prompting or for printing. Therefore, based on the 

s 37 1623 statement type, either the INPUT or the PRINT UDF will be called. 

; 345 1461 "  (BASSSAA_UDF_PR1 + .BASSSAA_UDF_PR1 C.CCB C1SBSB STIM. TYPE] - ISBSK_BASSTTYLO + 13) (DSCSK_DTYPE_L, 
3 ' data e 

308 1268 K_LONG_LEN, i Tongth of date type 

3; 548 1464 , ' address of value 

; 549 1465 BASS$K_NO_FORM ! no format character 

. oo ee 

: 552 1468 1 END; ‘End of BASSOUT_L_V_B 


0800 00000 -ENTRY BASSOUT_L_V_B, Save R11 ; 1418 


7 

1b-sep-1986 01:18:57 AX-11 Bliss-32 PEs rages Page 19 
14-Sep-1984 11:56:42 BASRTL. SRC JBASTERMIO.B32;1 (10). 
53 000000006 00 po 00 ML OTS$sA CUR_LUB, CCB : 1455 
28 FF71 CB 9A 000 MOVZBL <-143(CTB), R 3 1461. 
0000000060040 00 0000E MOVL  BASSSAA_UDF_PR1-104(R0], RO : | 

03 DD 00016 PUSHL #3 : 

04 AC 9F 00018 PUSHAB ELEM : 

04 DD 00018 PUSHL #4 ; 

8 DD 9010 PUSHL #8 F 

0000000060040 4 FB O1F CALLS #4, BASSSAA_UDF_PRICROJ : 
04 00027 RET + 1468 


3; Routine Size: 40 bytes, Routine Base: _BASSCODE + 00D3 


; 553 1469 1 


BASSUPI_TERM_10 


984 01:18:57 AX-11 Bliss-32 V4.0-74 
3h 94:88:23 EBASRTL SRE BASTERMIO.B42:1 
GLOBAL ROUTINE BASSOUT_F_V_S ( ! print pteet tng by value, semicolon format 
" ELEM f i element to output by value 


ee 


SSNS 


PUP SV SUSVSVSVSVSVSISIS 
So 


SANS NSN 
OONOUS WN 


WN 9 OONOUES ARO OONOUE WO 


GROSSE LESS AS ESETES 


SSSLEALAVSS 
Seossce 


w 


=POIMIPOMPIMIPIPONGNINY® “-COPIPIPONINIA a at at st at st st st st st tt tn kt tk dd dt tt 
o 


ooo 


WN 


wall al ah sb sb Ab Ab Ab Ab Ab Ab Ab Ab Ab db Ab Ab ah ah sh ab alas 


BELESE 


eee 


oa 
o 
wm 
a ed ed od ed od BOO OED 


ee ee ec me ce me ee ee ee ee ee ee ce ee ee ee ee ee ee ed ed ed ed ed 
AAA AA AAARN AAMAS ES BERR ERR RR ERR RRR EPR EPR RPP PPP P PPP 


SOWOONOULS WN —O0On 


Se 


i FUNCTIONAL DESCRIPTION: 
Output a single precision floating, the source is passed by value 
FORMAL PARAMETERS: 
ELEM. rf.v floating to print 
IMPLICIT INPUTS: 


OTSS$S$A_CUR_LUB current Logical Unit Block 
ISBSB_STTM_TYPE statement type of this 1/0 statement 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

NONE 
BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


CCB = .OTSSSA_CUR_LUB; 
Dispatch to the UDF level. Dispatching is done because this may be a PRINT 


element transmit for prompting or for printing. Therefore, based on the 
: statement type, either the INPUT or the PRINT UDF will be called. 


(BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 C.CCB CISB$B STTM_TYPE] = ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_F, 


! data type 
K_FLOAT_LEN, ! Length of data type 
° ! address of value 
BAS$K_SEMI_FORM ! semicolon format character 
RETURN; 
ND; ‘End of BASSOUT_F_V_S 


0800 00000 -ENTRY BASSOUT_F_V_S, Save R11 


PASSYPI TERA. 10 


58 000000906 00 

50 FF71 ~=CB 

50 acmeaee, 

04 AC 

04 

OA 

0000000060040 04 


; 606 


1521 1 


iets 
9A 00009 


04 00027 


; Routine Size: 40 bytes, Routine Base: _BASSCODE + O0FB 


i 94:38:23 wc 8 serial B32:1 


MOVL OTS $A, CUR. -LuB, ccB 

MOVZBL =143( 

MOVL BA soakk eUbF. _PR1-104CR0J, RO 
PUSHL #1 

PUSHAB ELEM 

PUSHL #4 

PUSHL #10 

CALLS #4, BASSSAA_UDF_PRICROJ 


BASS PI_TERM_10 


PAEAEARAAAAAAAAAAAOS 


MEVONVUN sao aS 


CONAVESWN $“QOONOuUlwr 


OO... NNN 
SUS WOOO 


o 


oa 


ee a et ee a ee a ee a a ee ee a a a ed ed ed 
M—OOCONOUSWwN— 


Sep-1 1: AX-11 OL iss -32 v4.0 

betes: 9 9 18:28 YOASRTL’ SROI BASTERMIO. 5 2:1 

GLOBAL ROUTINE BASSOUT_F_V_C ( ! print prestong pees © wan: format 
i element to ou A by value 

) : NOVALUE = | 


FUNCTIONAL DESCRIPTION: 

! Output a single precision floating, the source is passed by value 
i FORMAL PARAMETERS: 

ELEM. rf.v floating to print 

i IMPLICIT INPUTS: 


OTS$SA_CUR_LUB current Logical Unit Block 
ISBSB_STTM_TYPE statement type of this 1/0 statement 


' 
' 
' 
' 
' 
' 
' 
i] 
' 
‘ 
' 
i IMPLICIT OUTPUTS: 
; NONE 
i COMPLETION CODES: 
; NONE 
i SIDE EFFECTS: 
NONE 
lew 
BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


% CCB = .OTSS$S$A_CUR_LUB; 
i Dispatch to the UDF Level. iP ispatching is done because this may be a PRINT 


' element transmit for prompti ng or for printing. Therefore, based on the 
a statement type, either the INPUT or the PRINT UDF will be called. 


= PININININININPIPI|AINPINPIAIPIAIAIIINIAI YD ad a a i i kd td td a ot 
. 


K_FLOAT_LEN, ! Length 47 data type 
. ' address of value 
BASS$K_COMMA_FOR i comma format character 
RETURN; 
END; ‘End of BASSOUT_F_V_C 


0800 00000 ENTRY BASSOUT_F_V_C, Save R11 


(BASSSAA_UDF _PR1 + .BASSSAA_UDF _PR1 C.CCB re TYPE] ~ ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_F, 


PASSYPL_TERA_10 


28 000000006 es 

50 nena 

046 AC 

04 

OA 

0000000060040 04 
; Routine Size: 40 bytes, Routine Base: _BASSCODE + 

; 659 1573 1 


DO 00002 
9A 00009 


0123 


7 
Sep- =1386 1:18:57 AX-11 Bliss-32 V4.0-74 
$ep-1984 11:56:42 BASRTL.SRCIJBASTERMIO.832; 1 
OVL OTS$$A Cu CUR_LUB, CCB 
MOVZBL =143( 
OVL BASSSAA” UBF _PR1=104CR0J, RO 
PUSHL #2 
PUSHAB ELEM 
PUSHL #4 
PUSHL #10 
CALLS #4, BASSSAA_UDF _PRICROJ 


red 


1559 
1565 


1572 


r 


LSet 


N 7 
BASSUPI_TERM_I0 16-Sep-1984 01:18:57 AX-11 Bliss-32 V4.0-74 Page 24 
wt, 12280 8-1 8c 94:58:23 BASRTL.SRCIBASTERMIO.B 2;1 . $3 | 
; 661 1574 1 GLOBAL ROUTINE BASSOUT_F VB ( ! print floating by value, no format 
3 666 1575 1 x oe ! Clement to output by value 
; 66 1 6 1 ) : NOVALUE = : 
> 664 1577 1 
; 665 1578 1 S44 
: o9 : 0 : FUNCTIONAL DESCRIPTION: 
3 $38 128) : } Output a single precision floating, the source is passed by value 
; 670 1383 1 ! FORMAL PARAMETERS: 
; ee 1388 i ELEM. rf floating t int 
; : -f.v Oating to prin 
: 67 1386 | | rita 
; 674 et 1 ! IMPLICIT INPUTS: 
; 675 1588 1! 
; 676 1589 1! OTSS$A_CUR_LUB current Logical Unit Block 
; or? 1339 : } ISB$B_STTM_TYPE statement type of this 1/0 statement 
; 679 1396 1 ! IMPLICIT OUTPUTS: 
> 680 1593 1! 
; 681 1594 1! NONE 
> 68 1595 1! 
: 68 1596 1 ! COMPLETION CODES: 
3; 684 1597 1! 
3; 685 1598 1! NONE 
> 686 1599 1! 
; 687 1600 1 ! SIDE EFFECTS: 
; 688 1601 1! 
3; 689 lone 1! NONE 
; 690 1603 1! 
3; 691 1604 1 !-- 
; 692 1605 1 
; 6935 1606 § BEGIN 
3: 694 1607 
3; 695 1608 2 GLOBAL REGISTER 
3; 696 1609 2 CCB = K_CCB_REG : REF BLOCK C, BYTE): 
; 697 1610 2 
; 698 1611 2 CCB = .OTSS$A_CUR_LUB; 
; 699 1ol¢ § '¢ 
; 700 161 : Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
; 701 1614 : element transmit for prompting or for printing. Therefore, based on the 
3 re 1212 : statement type, either the INPUT or the PRINT UDF will be called. 
; ope + 3 (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 C.CCB CIG0S0, STIN_ TYPED - ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_F, 
3 ! data type 
; 706 1619 K_FLOAT_LEN, ! Length of data type 
; 707 1620 i ! address of value 
: 708 1621 BASSK_NO_FORM ! no format character 
: 709 loc¢ : 
: 710 162 RETURN; 
: 771i 1624 1 END; ‘End of BASSOUT_F_V_B 


0800 00000 -ENTRY BASSOUT_F_V_B, Save R11 3 1574 | 


hcouseciiiaepnounaaesacmeae otk eee ee 


8 8 
Jo~se0~ 1386 01: 


BASSUPI_TERM_I0 18: 
1-007 14-Sep-1984 11:56 
5B 000000006 00 0 00002 MOVL 
F71 CB 9A 00009 MOVZBL 
50 0000000060040 D0 0000E MOVL 
03 DD 00016 PUSHL 
04 AC 9F 00018 PUSHAB 
04 DD 00018 PUSHL 
A DD 0001D PUSHL 
0000000060040 4 FB QOOIF CALLS 
04 00027 RET 


; Routine Size: 40 bytes, Routine Base: _BASSCODE + 0148 


s Fi2 1625 1 


57 
742 
0 


AX-11 Bliss-32_ V4.0-74 
BASRTL.SRCJBASTERMIO.B32;1 


TS$$A_CUR_LUB, CCB 
-143(CCB), 


jae UDF -PR1-104CROJ, RO 


ELEM 
a4 


#10 
#4, BASSSAA_UDF _PRICROJ 


roe 


: 1611, 
1617. 


1624, 


BASSYPI _TERA_10 


: 716 16 
eA 
: a§ 16 § 
; at 1630 
s 71 1631 
; 720 16 ; 
: 721 16 

. F ¢ 1634 
2 1635 
; 724 16 $ 
3 fe 16 

: 726 1638 
s Te? 1639 
; 728 1640 
: 729 1641 
3; 730 196g 
3s 731 164 
3 Pee 1644 
.. 22 1645 
s 734 1646 
s 735 1647 
; 736 1648 
vor 1649 
: 738 1650 
3; 739 1651 
; 740 1626 
: 741 165 
; 74 1654 
; 74 1655 
3 744 1656 
; 745 1657 
3; 746 1658 
3; 747 1659 
; 748 1660 
3; 749 1661 
s 750 1906 
3 7351 166 
; Pg 1664 
. 1665 
3; 754 1666 
: 755 1667 
: 756 1668 
3 757 1669 
: 758 1670 
; 759 1671 
; 760 1676 
: 761 167 
$ 166 1674 
3 6 1675 
; 764 1676 


—PINIPINININIPININININININIAIININ INIA a rt tsk tt td dh dd dd od 
° o 


8 
1S-se 1984 01:18:57 AX-11 Bliss-32 V4.0-74 Page 26 
192380-1 38 94:58:23 EBASRTL SRE BASTERMIO.852;1 7 (14) 
GLOBAL ROUTINE BASSOUT_D_V_S ( ! print double by value, semicolon format 
element to output by value 


) : NOVALUE = 
le¢ 


i FUNCTIONAL DESCRIPTION: 

: Output a double precision floating, the source is passed by value 
i FORMAL PARAMETERS: 

ELEM.rd.v double floating to print 

i IMPLICIT INPUTS: 


OTSS$$A_CUR_LUB current Logical Unit Block 
ISBSB_STTM_TYPE statement type of this 1/0 statement 


' 

! 

' 

] 

' 

' 

! 

' 

' 

! 

' 

i IMPLICIT OUTPUTS: 
NONE 

i COMPLETION CODES: 
NONE 

i SIDE EFFECTS: 

: NONE 

' 


BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


CCB = .OTSSS$A_CUR_LUB; 

i Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
: element transmit for prompting or for printing. Therefore, based on the 
statement type, either the INPUT or the PRINT UDF will be called. 


(BASS$AA_UDF_PR1 + .BASSSAA_UDF_PR1 C.CCB C1SBSB STIM_TYPEI - ISBSK_BASSTTYLO + 1)) (DSC$K_DTYPE_D, 
ata e 


. p 
K_ DOUBLE _LEN, : Length of data type 
° ' address of value 
BAS$K_SEMI_FORM ! semicolon format character 
RETURN; 
END; 'End of BASSOUT_D_V_S 


0800 00000 -ENTRY BASSOUT_D_V_S, Save R11 : 1626 


os l og 10 


58 covopnere 00 
FF71 (B 
50 vacant | ke 


1 
04 «AC 
08 
0B 
0000000060040 04 
; Routine Size: 40 bytes, Routine Base: _BASSCODE + 


: 765 1677 1 


8 

1hesepe1 8:57 AX-11 Bliss-32 V4.0- Pa 27 

13-808-1 382 ” 2 2b Patsat sat leasrennio afe:1 9 a) 
DO 00002 MOVL OTS$$A CUR_LUB, CCB : 1663 
9A 90009 MOVZBL -143(CTB), R + 1669 
DO O000E MOVL  BASSSAA OUOF _PR1=104CR0J, RO : 
DD 00016 PUSHL #1 : 
9F 00018 PUSHAB ELEM ; 
DD 00018 PUSHL # : 
DD 0001D PUSHL #11 : 
FB OOOTF CALLS #4, BASSSAA_UDF_PRICROJ : 
04 00027 ET + 1676 
0173 


ite 


| BASSUPI_TERM_10 


; 767 167 
: 768 1878 
: 769 168 
: 770 1681 
: 771 16 ; 
: 17 16 

: 77 1684 
: 77% 1685 
> 775 16 : 
; 176 168 
: of 1689 
; $78 1850 
: 780 1691 
: 781 1698 
: 78 169 
: 78 1694 
: 784 1695 
: 785 1696 
> 786 1697 
: 787 1698 
: 788 1699 
: 789 1700 
> 790 1701 
: 791 1708 
: 79 170 
: 79 1704 
> 79% 1705 
: 795 1706 
: 79% 170 
: 797 1708 
: 798 1709 
> 799 1710 
> 800 1711 
> 801 171¢ 
: 802 171 
> 803 1714 
: 804 1715 
> 805 1716 
: B06 171 
> 807 1718 
: 808 1719 
: 809 1720 
: 810 1721 
> B11 172¢ 
; B12 17 

> Bl 1724 
; gi4 1725 
> B15 17 6 
: B16 172 
: 817 1728 


=PIMIMINMINPINIPINPIPIPIPINPINPNIAIIII II a nt nt tt st at st kk kk kk tk kk kt tt to 
° 


8 
VEgeesH0Ne MUDESEZWBMGAN OMe tadE tbe? 


! print double by value, comma format 


GLOBAL ROUTINE BASSOUT_D_V_C ( 
M element to output by value 


) : NOVALUE = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 
! Output a double precision floating, the source is passed by value 
FORMAL PARAMETERS: 
ELEM.rd.v double floating to print 
IMPLICIT INPUTS: 


OTSS$A_CUR_LUB current Logical Unit Block 
ISBSB_STTM_TYPE statement type of this 1/0 statement 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

NONE 


BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_LREG : REF BLOCK C, BYTE); 


~ CCB = .OTSSSA_CUR_LUB; 
i Dispatch to the UDF level. Dispatching is done because this may be a PRINT 


! element transmit for prompting or for printing. Therefore, based on the 
: statement type, either the INPUT or the PRINT UDF will be called. 


K_DOUBLE_LEN, i Length of data type 
" ! address of value 
BASS$K_COMMA_FOR ! comma format character 
RETURN; 
END; ‘End of BASSOUT_D_V_C 


0800 00000 -ENTRY BASSOUT_D_V_C, Save R11 


4 
ASTERMIO.B 


$251 


roe 8 


(BASSSAA_UDF_PR1 + .BASSSAA_UDF_PR1 [.CCB CISBSB.STIM.TYPE] - ISBSK_BASSTTYLO + 11) (DSCSK_DTYPE_D, 
afta type 


1678 


ra FOTO COREE. I eS os ee > * [ 


F 8 

BASSUPI_TERM_10 16-Sep-1984 01: 18: 57 VAX-11 Bliss-32 v4.0-7 Pa 9 
1-607 14-Sep-1984 11:56:42 CBASRTL. SROIBASTERMIO.6 2;1 ee 48 
5B 000000006 00 »p0 00002 MOVL OTSS$$A_CUR_LUB, CCB 3 1715 
CB 9A 00009 MOVZBL -143(ClB), RO 3 1721 

50 0000000060040 00 O000E MOVL BASSSAA SUF _PR1-104CR0J, RO 3 

02 DD Bootg PUSHL #2 $ 

04 AC 9F 0001 PUSHAB LEM 3 

8 OD 0018 PUSHL @# 3 

B DD 1D PUSHL #11 : 

0000000060040 4 FB OO1F CALLS #4, BASSS$AA_UDF_PRICRO] 3 
04 00027 RET ; 1728 


; Routine Size: 40 bytes, Routine Base: _BASSCODE + 0198 


; 818 1729 «#1 


-—_——__——— 


8 
ASSUP1_TERM_10 18-56 -1984 01:18:57 AX-11 Bliss-32 V4.0-74 Pa 30 

8S 12-8 08-13be 97:88:23 YBASRTL SRE BASTERAIO. 69251 9° 18) 
: 820 1730} GLOBAL ROUTINE BASSOUT_D_V.B ! print double by value, no format 

: 1 17 1 LEM ! element to output by value 

3 ¢ 17 ¢ 1 ) : NOVALUE = ! 

; 17 1 

3 4 17346 1 S44 

3 5 i 5 : } FUNCTIONAL DESCRIPTION: 

3 : ? if $ : Output a double precision floating, the source is passed by value 

; 829 1778 ; FORMAL PARAMETERS: 

: 831 1741 13 ELEM.rd.v double floating to print 

: 1 2 17g 1 ~~ 

. & 1745 1°! IMPLICIT INPUTS: 

3 8 1744 1! 

; 835 1745 1! OTS$$A_CUR_LUB current Logical Unit Block 

3 S39 1766 ' 1SB8$B8_STTM_TYPE statement type of this 1/0 statement 

; 838 1748 1°! IMPLICIT OUTPUTS: 

; 839 1749 1! 

; 840 1750 1! NONE 

3; 6841 1751 1! 

; «484 1286 1 ! COMPLETION CODES: 

3; & 1753 1! 

3: «B44 1754 1! NONE 

3; 845 1755 1! 

; 846 1756 1 ! SIDE EFFECTS: 

3; 847 1757 1! 

; 848 1758 1! NONE 

; 849 1759 1! 

; 850 1760 1 !-- 

; 851 1761 1 

3 $26 1706 BEGIN 

; & 176 

; 854 1764 GLOBAL REGISTER : 
3 835 1765 CCB = K_CCB_REG : REF BLOCK C, BYTE]; 
3; 856 1708 
3 $22 rer ’ CCB = .OTSSSA_CUR_LUB; 

3 B39 1769 ! Dispatch to the UDF level. Dispatching is done because this may be a PRINT 

: 860 1770 !' element transmit for prenpt ing or for printing. Therefore, based on the 

3 3) 4a! } statement type, either the INPUT or the PRINT UDF will be called. 

3 307 1778 (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 [.CCB C19BS6 STIA, TYPED - ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_D, 

3 - Gata pe 

; 865 1775 K_DOUBLE_LEN, : Length of data type 

; 866 1776 ‘ ' address of value 

; 867 1777 BASSK_NO_FORM ! no format character 

3; 868 1778 ); 

; 869 1779 RETURN; 

; 870 1780 1 END; 'End of BASSOUT_D_V_B 


0800 00000 ENTRY BASSOUT_D_V_B, Save R11 ; 1730. 


aay 


3; Routine Size: 


; 871 


BASSYP I TERA_10 


40 bytes, 


1781 


1 


H 8 
16-Sep-1984 01:18:57 AX-11 Bliss-32 v4.0- 
1o-808- 1382 ta See EBASRTL SRC IBASTERMIO 
58 wovoporse 00 p00 00002 VL OTS$$A_CUR_LUB, CCB 
50 FF71 CB 9A 00009 MOVZBL -143(CTB), 
50 0000000060040 00 O000E VL BASSSAA_UDF_PR1-104(ROJ, RO 
03 DD 00016 PUSHL 3 
04 AC 9F 00018 PUSHAB ELEM 
08 oD 00018 PUSHL #8 
0B DD 0001D SHL #11 
0000000060040 04 FB O001F CALLS #4, BASSSAA_UDF_PRICROJ 
04 00027 RET 


Routine Base: _BASSCODE + 01C3 


74 
-852;1 


8 
1 TERM_10 : tbs | 1:18:57 AX-11 Bliss-32_V4.0-74 
1 3087138¢ 9:98:23 EBASRTL SRE BASTERMIO.852;1 


GLOBAL ROUTINE BASSOUT_T_DX_S ( ! print text by desc., semicolon format 
+ A orALUe ' } element to output by descriptor 


Page 135 


"60 


Wr 


uw 


'e¢ 


| FUNCTIONAL DESCRIPTION: 
Output text, the source is passed by descriptor 


Ooo 


ee 33 FORMAL PARAMETERS: 
84 9 ; ELEM. rt.dx text to print 
85 9% 1 
4] 95 ! IMPLICIT INPUTS: 
8 38 ‘ 
888 9 ! OTS$$A_CUR_LUB current Logical Unit Block 
34 38 } ISBSB_STTM_TYPE statement type of this 1/0 statement 
891 00 ! IMPLICIT OUTPUTS: 
89 01 : 
89 Oe : NONE 
894 0 : 
895 04 ! COMPLETION CODES: 
896 05 ! 
897 : NONE 
898 ; 
! SIDE EFFECTS: 
900 4 
901 : NONE 
308 : 
90 len 
904 
905 BEGIN 
906 


907 
908 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


PETE TE TE TCICTEILIRIL IRI eee eee rece rcrerererererererere rere re rerere rere rere Te Tere 
3 
ee a ea ee a el a el ce a ee el ee a a ee ed ee ed ee 
Ne aandatea ee 
CONAULSWN OO OONOUS WN —O0@~ 


9 09 09 09 Cd 09 Cd CS Cd Co Cd GD CD CD CD CD CD Cd Cd 09 C9 09 OD OD CD OD CD GD OD CD CD CD 0D 09 09 09 SI NSINISINISIN NINN NN NNSISS 


PIPPIN IPIMIPIMNIMINPIPINININIPINIPININ IY a st st tt nt tt tk tt tk kk tk tt 
. 


909 

910 MAP 

44 ELEM : REF BLOCK (8, BYTE); 

318 * CCB = .OTSS$S$A_CUR_LUB; 

915 i Dispatch to the UDF Level. Dispatching is done because this may be a PRINT 

aig $ ! element transmit for prompt ing or for printing. Therefore, based on the 

4, : statement type, either the INPUT or the PRINT UDF will be called. 

$19 3 Y (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 (C.CCB CISBSB STTM_TYPE] - ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_T. 
! data e 

354 0 ELEM CDOSCS$W_LENGTH), : Length of data 

356 31 x . ' address of desc 

387 3 _ BASSK_SEMI_FORM ! semicolon format character 

925 34 RETURN; 

926 35 END; 'End of BASSOUT_T_DX_S 


— eee — 


QASSUPL_TERM_10 re-senrtgee 01:18:57 yanelt Olise=52 ye.oc7ag age, 38 


08 .ENTRY BASSOUT_T_DX S. Save R11 : 1782. 

000000006 00 p MOVL Or S$sA, A CURL : 1393 

FF CB OA MOVZBL -143(CCB : 1828 | 

000000006004 v0 ROVE BASSSAA eubE. _PR1*104CROJ, RO : | 

Q4 AC pd 0001 PUSHE ELEM ; 1831. 

7E € 3¢ 00018 MOVZWL @ELEM, (SP) > 1830 

E dD F PUSHL #14 ; 1828 | 

0000000060040 FB 1 CALLS #4, BASSSAA_UDF_PRICROJ : | 
04 9 RET + 1835 


3; Routine Size: 42 bytes, Routine Base: _BASSCODE + O1EB 


3s 927 1836 1 


pass 1 TERM_10 
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. 
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. 
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Ww 
won 


~ 


WN O OONOUS WN “OO CONOUS WO 


MEWN— 


OOOO O0O000O0 
SP tt 


O00 
= 


FRERER 
NOulSwn—oo 


+4 
= 
PAA 


SES SSSSSCSSSS 


eee 


=PIPIPIMINPINYIAPIPINIMPYAININININPINININPIDNIPIRY) ad ad a a a i i a ad dd ad od od td od = od 


woOODOOOONOVNO 
DAPI 
NOUSWN OO 


000 
AAO 


& 
—O0M 


(G9 C9 Cd Cd Cd Cd Cd Cd Cd Cd Cd C9 CD CO. CD CD 
NNN NINN NNO OOOO 


—OOONOUESWN—OOOnOu 


ee mm ee ee ed ed ed ed dd Bd ed dd nd wd wd td 


SSeNOurur— 


Kk 8 
19-8 ep-1 


1e-3ep- 1882 94:58:23 «| eaXsaTe SAE Seas rtnnto coz; 


GLOBAL ROUTINE BASSOUT_T_DX_C ( ! print text by desc., comma format 
a sae us . 5 SenERS to output by descriptor 


FUNCTIONAL DESCRIPTION: 
Output text, the source is passed by descriptor 
FORMAL PARAMETERS: 
ELEM. rt.dx text to print 
IMPLICIT INPUTS: 


OTS$$A_CUR_LUB current Logical Unit Bloc 
ISB$B_STTM_TYPE statement type of this 56 statement 


i 

i 

; 

i 

i 

i 

i 

i 

i 

i 

i 

IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 

SIDE EFFECTS: 

& NONE 

le 


BEGIN 
GLOBAL wy eto 
CCB = K_CCB_REG : REF BLOCK C, BYTE]; 
4 ELEM : REF BLOCK (8, BYTE); 
ts CCB = .OTSSSA_CUR_LUB; 
i Dispatch to the UDF level. jPispatching is done because this may be a PRINT 


i element transmit for prompti ng or for printing. Therefore, based on the 
4 statement type, either the INPUT or the PRINT UDF will be called. 


(BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 C.CCB CISBSB oo" TPE? - ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_T, 


a 
ELEM COSCS$W_LENGTHI, length + dete 
. ° i address of des 
BAS$K_COMMA_FOR ! comma format character 


RETURN; 
END; ‘End of BASSOUT_T_Dx_C 


8 
BASSUPI_TERM_10 1o-se 


Si 91:18:25 PaASHT Obsegaze Pea0s78s,. Pose 3 | 


0 CCB = .OTSSSA_CUR_LUB; | 
i Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
' element transmit for prompt ing or for printing. Therefore, based on the 
statement type, either the INPUT or the PRINT UDF will be called. 
j (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 C.CCB C1SB$B STIA, TYPED - ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_T, 
' data © 

.ELEM CDSC$W_LENGTH), i length of data 

. ° ' address of desc 

BAS$K_NO_FORM ! no format character 


RETURN; 
END; 


WAIWHRIPUPINIPINPINPIPINDY 2 2 OO Ot 
BN SSRN RUN MH OOMNONR UNO 


ae 


> 985 1892 1 GLOBAL ROUTINE BASSOUT_T_Dx_B ( ! print text by desc., no format 

: oe : 7 : . cE ue : element to output by descriptor 

a: ie ee ) 

3 990 97 i FUNCTIONAL DESCRIPTION: 

3 4 ! 4 : Output text, the source is passed by descriptor 

; 99% 1901 i FORMAL PARAMETERS: | 
; 339 1308 ; ELEM. rt.dx text to print | 
: 998 1905 1 i IMPLICIT INPUTS: | 
; 1000 1909 ii OTS$$A_CUR_LUB current Logical Unit Block 

: 1002 bas : ISB$B_STTM_TYPE statement type of this 1/0 statement 

: 100 1910 1 ! IMPLICIT OUTPUTS: 

: 1004 1911 1: 

 iS0e 1918 1 | mis | 
: 1007 1914 1 ! COMPLETION CODES: | 
: 1008 1915 1: 
; 1009 1916 ; NONE | 
3 1918 ' SIDE EFFECTS: | 
: 4 1920 1! NONE | 
: 1 1921 1: | 
. 1998 1 | 
:} tS Deen | 
71 1926 2 GLOBAL REGISTER | 
31 1927 : CCB = K_CCB_REG : REF BLOCK C, BYTE); 
: 1959 MAP | 
; 1930 $ ELEM : REF BLOCK (8, BYTE); | 
> 19 é : 

3 1 19 

3 3 1934 

3: 1 1935 

3 1 1936 

:1 1937 

3 1 1938 

+1 1939 

:1 1940 

31 1941 

:1 19. ‘ 

3 1 19 

:1 1944 

:1 1945 1 


SOSSSCSCSOOOCSCOOSCSOOSOOCOOOCOCoOoOoOSooOoooo 
BEE EE FWA 


Ww 
@ 


'End of BASSOUT_T_DX_B 


BASSUPI_TERM_10 
lll 


; Routine Size: 


42 bytes, 


0800 

5 ween i, ean 00 g6 

50 ovo00b0c0056 pe 

04 AC 0D 

7 04 BC 3¢ 
0000000060040 4 fe 


Routine Base: _BASSCODE + 023F 


sH8He 1:38 


AX-11 Bliss-32_V4.0-7 
BASRTL.SRCJBASTERMIO. 2;1 


riithy T_Dx e: sexe R11 
Ors$sa tt CuR_L 


BASSSAA. eUbr  sotestned, RO 


ELEM 
GELEM, ~(SP) 
#4, BASSSAA_UDF _PRICROJ 


be cee 89 

BASSUPI_TERM_10 16-Sep-1984 01:18:57 AX-11 Bliss-32 V4.0-74 Pa 8 
Asay 12-808-1 984 97:48:23 EBASRTL SRC IBASTERMIO.B 2:1 9 88 
3 19K 1906 1 GLOBAL ROUTINE BASSOUT_G_V_S ( ! output G by value, semi format 
3; 1041 1947 1 ! element to output 

: od 1368 : ) : NOVALUE = ! 

> 1064 1950 1 46 

: ok 132) : : FUNCTIONAL DESCRIPTION: 

; 194? 1988 : Output a g fioating number passed by value, with a semi colon terminator 

; 1049 1955 ' FORMAL PARAMETERS: 

; 1051 1997 i ELEM.rg.v g float to print 

3 1938 1959 { IMPLICIT INPUTS: 

> 1055 1961 1 | OTS$$A_CUR_LUB current Logical Unit Block 

; 1928 1308 ; 1SB$8_STTM_TYPE statement type of this 1/0 statement 

3 1058 1964 IMPLICIT OUTPUTS: 

> 1060 1966 | NONE 

3; 1061 1967 1! 

: 10e¢ 1308 ! COMPLETION CODES: 

> 1064 1970 1: NONE 

3; 1065 1971 1! 

: 1906 1306 ' SIDE EFFECTS: 

> 1068 1974 1: NONE 

3: 1069 1975 1! 

3; 1070 1976 1 !<- 

3; 1071 1977 1 

: 1072 1978 BEGIN 

: 1073 1979 

3: 1074 1980 GLOBAL REGISTER 

3 igen 138) § CCB = K_CCB_REG : REF BLOCK C, BYTE); 

; 1077 1983 : |, OCB = .OTS$$A_CUR_LUB; 

: 1079 1985 i Dispatch to the UDF level. Dispatching is done because this may be a PRINT 

; 1080 1986 2 ! element transmit for prompting or for printing. Therefore, based on the 

: Het bs ! statement type, either the INPUT or the PRINT UDF will be called. 
l; 1088 1989 2 (BASSSAA_UDF_PR1 + .BASS$SAA_UDF_PR1 C.CCB CISB$B_STTM_TYPE] - ISBSK_BASSTTYLO + 1) (DSCSK_DTYPE_G, 
)3 1084 1990 ' dafa type 

3; 1085 1991 K_GFLOAT_LEN, ' Length of data type 

3 1086 1936 . ! address of value 

3 Hs 4 iSar BAS$K_SEMI_FORM ! semicolon format character 

: 1089 1995 § RETURN; 

; 1090 1996 1 END; ‘End of BASSOUT_G_V_S 


0800 00000 -ENTRY BASS$OUT_G_V_S, Save R11 ; 1946 


9 
BASS 1_TERM_10 16-Sep-1984 91: 8:57 AX-11 Bliss-32_V4.0-/ Page 43 


14-Sep-1 756:42 BASRTL.SRCJBASTERMIO. 3 231 

8 ate t's te 00 +4 © RnO8S MOVL OTSSSA_CUR_LUB, CCB : 1983 
rer) 36S MOVZBL -143(CCB), RO : 1989 

0 0000000060040 00 Q000E MOVL BAS$$AA _UDF -PR1-104CROJ, RO ; 

01 DD 00016 PUSHL #1 : 

04 AC 99F 00018 PUSHAB ELEM : 

08 DD 00018 FUSHL = #8 : 

1B DD 0001D PUSHL #27 : 

0000000060040 04 FB OO01F CALLS #4, BASSSAA_UDF _PRICRO] : 
04 00027 RET : 1996 


; Routine Size: 40 bytes, Routine Base: _BASSCODE + 0269 


poo en 


d. 9 
6-Se 


BASSUPI_TERM_10 1 -1984 01:18:57 AX-11 Bliss-32 V4.0-74 Pa 40 
180 12-Sep-19 4 94:58:25 EBASRTL SRE BASTERAIO. B82: 1 9 21) 
109 1997 1 GLOBAL ROUTINE BASSOUT_GV_C ( ! output g float by value, comma format 
10? 1238 1 ctor ! Gienent to or int’ 
1 1 1 ) : NOVALUE = : 
1095 000 1 
1 001 1 !+¢ 
192 008 : FUNCTIONAL DESCRIPTION: 
184 Bee ! Print a gfloat number passed by value, with comma format 
1483 44 1 ! FORMAL PARAMETERS: 
a res Moat to rin 
: -fg.v oat to prin 
1102 $09 | . . : 
1105 010 1°! IMPLICIT INPUTS: 
1109 011 +1! 
110 Oi§ 1} OTSS$$A_CUR_LUB current Logical Unit Block 
138 HF } 1SB$B_STTM_TYPE statement type of this 1/0 statement 
1110 015 1 ! IMPLICIT OUTPUTS: 
1111 big 1! 
Wiig 01 1! NONE 
111 018 1! 
1114 019 1 ! COMPLETION CODES: 
1115 020 1! 
1116 Oss 1! NONE 
1117 0 ¢ 
1118 023 1 ! SIDE EFFECTS: 
1119 0246 1! 
1120 025 1! NONE 
1121 026 1! 
11 ; 027 1 !- 
11 2028 1 
1124 $o¢e BEGIN 
1125 $3 0 
1126 3h GLOBAL REGISTER 
Mist $088 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
11$9 2034 mn CCB = .OTSSS$A_CUR_LUB; 
1131 $036 : Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
113 2037 : element transmit for prompting or for printing. Therefore, based on the 
a soso statement type, either the INPUT or the PRINT UDF will be called. 
1135 Bee (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 [.CCB C19B86 STIN. TYPE) ~ ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_G, 
! dafa type 
1139 be§ K_GFLOAT_LEN, ' Length of data type 
1138 04 " ! address of value 
1139 044 BASSK_COMMA_FOR ! comma format character 
1140 045 : 
1141 046 RETURN; 
1142 2047 1 END; 'End of BAS$SOUT_G_V_C 


0800 00000 -ENTRY BASSOUT_G_V_C, Save R11 ; 1997 


'" Se Se Oe Se Se Be Ge FH Se Ge Se SH Se SE He Be Se Se Ge Se Oe Ge Ge Ge Ge Ge Ss Gs SH Ss Ss Se OF Oe Oe SH Se Os Oe SH Os Ss oe Oe Oe Oe Oe eee Sees 


| 
| 
| 
| 
| 
| 
| 


et ee 


8 cooopners 00 


5 FF71_ =C¢ 
50 sphere 
046 AC 
18 
0000000060040 04 


; Routine Size: 40 bytes, Routine Base: _BASSCODE + 


a 

1§- Sep-19 1:18:57 AX-11 Bliss-32 v4. p 41 

bestia ta 742 BASRTL.SRC Bacrtnivo B82; 31 29 (21) 
b0 93 MOVL \; $he “ -bie. ccB : 2034 
9a 000 MOVZBL -1 3: 2040 
DO O000E MOVL GASSSAA BUF -PR1-104CR0J, RO : 
DD 00016 PUSHL $ 
9F 00018 PUSHAB a : 
DD 00018 PUSHL 3 
DD 00010 PUSHL $ 
FB OO01F CALLS x BASSSAA_UDF _PRICROJ : 
04 00027 RET 3: 2047 


0291 


a 


ree 


F 9 

A 1_TERM_10 16-Sep-1984 01:18:57 AX-11 Bliss-32 V4.0-74 Page 42 
#430 187808- 1382 tb See YBASRTL SRE BASTERMIO.852;1 or (22) 
3 1146 48 1 GLOBAL ROUTINE BASSOUT_G_V_B ( ' print greet. blank format 
3 17165 1 ELEM ' element to print 
3 1369 1 ) : NOVALUE = ! 
3 116 1 
3 114 § 1 !e¢ 
; 19 ? : FUNCTIONAL DESCRIPTION: 
$ i 1 $5 : } Print a gfloat number passed by value, with a blank terminator 
3 11 i $29 1 ! FORMAL PARAMETERS: 
3 1154 328 , | 
3; 1155 82 1: ELEM.rg.v gfloat to print 
311 $ S ¥% 
311 061 1 ! IMPLICIT INPUTS: 
3; 1158 006 1! 
; 1159 065 1! OTSS$A_CUR_LUB current Logical Unit Block 
: Bb +44 : } 1SBSB_STTM_TYPE statement type of this 1/0 statement 
§ 1168 0 1 ! IMPLICIT OUTPUTS: 
3 116 067 1! 
3 1164 B98 1! NONE 
3 1165 069 1! 
3; 1166 070 1 ! COMPLETION CODES: 
3 1167 071 1! 
3; 1168 34 1! NONE 
3; 1169 073 1! 
: 1170 074 1! SIDE EFFECTS: 
3 1171 075 1! 
3 1106 076 1! NONE 
3 117 744 1! 
3 1174 78 (1 S-- 
3 1175 079 1 
3 1176 080 BEGIN 
3 1177 2081 
3; 1178 505s GLOBAL REGISTER 
3 1179 08 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
3; 1180 soee 
; Bf 3 H . CCB = .OTSSS$A_CUR_LUB; 
: 1188 $089 ! Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
3: 1184 2088 ! element transmit for prompting or for printing. Therefore, based on the 
3 Bt + 3444 } statement type, either the INPUT or the PRINT UDF will be called. 
3 1187 091 (BASSSAA_UDF_PR1 + .BASSSAA_UDF_PR1 C.CCB CISBSB_STTM_TYPE] - ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_G, 
> 1188 34 ' data type 
3 1189 09 K_GFLOAT_LEN, ' Length of data type 
3; 1190 094 EM, ' address of value 

3 1191 095 BASS$K_NO_FORM ! no format character 

: 1136 096 ); 
: 119 097 RETURN; 
3 1194 098 #1 END; ‘End of BAS$OUT_G_V_B 


0800 00000 -ENTRY BASSOUT_G_V_B, Save R11 ; 2048 


————— -- 


BASSUPI_TERM_10 


; Routine Size: 40 bytes, Routine Base: _BASSCODE + 0289 


9 
18-Sep-1984 9: 18: 23 AX-11 Bliss-32 V4.0-7 


BASRTL.SRCJBASTERMIO. 4 231 


000000006 00 po 02 MOVL ors $A cuR -LyB. ce 
FF fe A MOVZBL <-14 
0000000060040 D0 0000€ MOVL BA Aséena “ubF. _PR1-104CR0], RO 
03 DD 00016 PUSHL #> 
04 AC 9F 00018 PUSHAB ELEM 

08 DD 00018 PUSHL #8 

1B DD 00010 PUSHL #27 
0000000060040 04 FB O001F CALLS #4, BASSSAA_UDF_PRICROJ 

04 00027 RET 


~ 
~m 
LP 

Ww 


Ss 


BASSYPI_TERA_10 


oO 


Se 
NM—O CONOUS WOO NOUR OODNANP WU IMOSR NEAR OO OD 


SSONOUNRUNSSLOVAUNE WH OSBURAR AU OSO IE 


a a a kk a a ed ak ed dtd = ad = 8 td 


SPI IFIP III INIA a a a tk nt dd dd 


POPIPINDPYPDNYNINININININININININININININIPIPIPURIPIPIPIPUPIPIPIPIPIPUIPIPIPINPIPINININPY 


1 
1 
1 
1% 
i 
10 
1? 
i 
11 
11 
11 
11 
11 
11 
11 
11 
11 
; : 
rs 1 
§ 1 
; i 
2 1 
2 12 
12 
1 
1 
2 1 
; i 
BO 
oO 
$35 13 
234 13 
235 13 
$38 13 
37 14 
238 14 
239 14 


GLOBAL ROUTINE BASSIN BR ( 


) : NOVALUE = 


lee 


FUNCTIONAL DESCRIPTION: 


H 9 
eSepm19be V1is602 — EBASRTL SRCSBASTER 


! input byte by ref 
} element to input by reference 


Input a byte, the destination is passed by reference 


FORMAL PARAMETERS: 
ELEM.rb.r 
IMPLICIT INPUTS: 


OTS$$A_CUR_LUB 
1S8$B_STIM~TYPE 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

NONE 


BEGIN 
GLOBAL REGISTER 


where to store the byte input 


current Logical Unit Block 


statement type of this 1/0 statement 


CCB = K_CCB_REG : REF BLOCK C, BYTE]; 


CCB = .OTSS$A 


ELEM, 
BASSK NULL); 
RETURN; 
END 


5B 000000006 00 
7E 


000000006 00 


CUR_LUB; 
BASSSUDF_RL1 TDSCSK_DTYPE_B, 
K_GFCOAT_LEN, 


data type byte 


address of destination 


' 
length of data type 
i 


null format character 
‘End of BASSIN_B_R 


0800 00000 -ENTRY 
DO 0000 MOVL 
D4 000 CL 
DD 00008 PUSHL 


BASSIN_B_R, Save R11 
OTSS$SA_COR_LUB, CCB 
atin 

a8 

6 


8 
#4, BASSSUDF_RL1 


Page 34) 


BASSUPI_TERM,10 re 94:48:25 YOASRTLSRedB ASreRMO-882;1 Page (23). 


; Routine Size: 26 bytes, Routine Base: _BASSCODE + 02E1 


19 
BA 1_TERM_10 16-Sep-1984 01:18:57 AX-11 Bliss-37? V4.0-74 Pa 46 
ti ae 12-8081 382 Os :42 fe ATL sRe BAS TERING. B92:1 9° 24) | 
3 1241 143 1 GLOBAL ROUTINE BASSOUT_H_V_S ( ! print hfloat with semi format 
3; 1 tg 144 1 ELEM ! element to print 
3; 124 145 1 ) : NOVALUE = : 
3 1244 be 1 
3; 1245 147 1 S44 
; : rs 198 : FUNCTIONAL DESCRIPTION: 
: } 28 1 ? : ! Print an hfloat number passed by value, with semi colon format 
; 30 : i FORMAL PARAMETERS: 
gs SET cactem seme eerste 
3 1255 189 fi . 
3 1 28 158 1! OTSS$$A_CUR_LUB current Logical Unit Block 
3 ; ef + : : ISB$B_STTM_TYPE statement type of this I/0 statement 
> 1259 161 1 § IMPLICIT OUTPUTS: 
: 1260 FE 1! 
3: 1261 163 1! NONE 
3 3 og 164 1! 
3; 126 165 1 ! COMPLETION CODES: 
3 1266 166 1! 
3; 1265 167 1! NONE 
3 1 $6 168 1! 
; 126 169 1 ! SIDE EFFECTS: 
3; 1268 170 1! 
3: 1269 171 1! NONE 
3; 1270 6 7: 
3 1271 173 1 !-- 
31 Lk: 174 «1 
3 127 175 BEGIN 
3 1274 176 
; \¢?? 17 GLOBAL REGISTER 
: ' A} 178 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
; 8 180 2 | CCB = .OTS$SA_CUR_LUB; 
: 1280 183 i Dispatch to the UDF Level. Dispatching is done because this may be a PRINT 
3; 1281 18 ! element transmit for prompting or for printing. Therefore, based on the 
3 1388 +t ! statement type, either the INPUT or the PRINT UDF will be called. 
: : Be 186 (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 [.CCB C1SBSR STIN, TYPE) - ISBSK_BASSTTYLO + 1)) (DSCSK_DTYPE_H, 
; ! data e 
3; 1286 188 K_HFLOAT_LEN, : length of data type 
3 1287 189 . ' address of value 
3 ' 4 \ BASSK_SEMI_FORM ! semicolon format character 
3 1290 198 RETURN; 
3; 1291 193 1 END; ‘End of BASSOUT_H_V_S 

0800 00000 ENTRY BASSOUT_H_V_S, Save R11 > 2143 


RegO YP TK TERAAI0 if: tg 94:38:23 wets septate B32;1 Page ots 


58 000000006 00 pO 00002 MOVL OTS$$A_CUR -buB. CcB : 2180 
50 FF71_ CB 9A 00009 MOVZBL -143(CCB) : 2186) 
50 0000000060040 00 000 MOVL BASS$$AA SUbF PORT -104CR0J, RO : 
01 0D 00016 PUSHL #1 : 
04 AC 9F 00018 PUSHAB ELEM : 
10 DD 00018 PUSHL #16 : 
1¢ DD 00010 PUSHL #28 : 
0000000060040 04 fe Booey cere #4, BASSSAA_UDF _PRICROJ : 


2193, 
; Routine Size: 40 bytes, Routine Base: _BASSCODE + 02FB | 


g 
pASSUPL_TERR_10 1B-seo-1986 01:18:57 Yael! Blisg-32 v4.05742, Page, 48. 


: 1293 194 1 GLOBAL RO'TINE BASSOUT_H_V_C ( ! print hfloat with comma format 
> 1294 195 1 ELEM : Slesent to print 

: ; 95 138 ! ) : NOVALUE = : 

31 3$ 138 1 tee 

: ; 38 1 ; FUNCTIONAL DESCRIPTION: 

3 1 4 a} : Print an hfloat number passed by value, with comma format 

: 1308 08 1] { FORMAL PARAMETERS: 

; 1304 oe ! ELEM. rh.v hfloat to print 

i: 1306 Q7 1 | IMPLICIT INPUTS: 

: 1308 09 1: OTS$$A_CUR_LUB current Logical Unit Block 

: : 4 19 ' ISB$B_STTM_TYPE statement type of this 1/0 statement 

3 1 iF IMPLICIT OUTPUTS: 

; 1318 214 13 NONE 

3 1318 1k 

: 1312 16 ' COMPLETION CODES: 

: 1317 g18 | i NONE 

3; 1318 19 1! 

: 1313 sso : } SIDE EFFECTS: 

: 1321 234 1! NONE 

; 1356 2 1! 

3 13 224 1 Se 

3: 1324 225 1 

is wi 

; 1327 228 GLOBAL REGISTER 

3 1308 69 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3 1380 $3 |, OCB = .OTS$$A_CUR_LUB; 

: 1382 o i Dispatch to the UDF Level. Dispatching is done because this may be a PRINT 
3; 133 234 ! element transmit for prompting or for printing. Therefore, based on the 
: 1 33¢ $$32 : statement type, either the INPUT or the PRINT UDF will be called. 

3 1336 337 " (BAS$SAA_UDF_PR1 + .BASSSAA_UDF_PR1 C.CCB C1SBS$B, STIM_ TYPE] - ISBS$K_BASSTTYLO + 1J) (DSCSK_DTYPE_H, 
; ! data e 

3 1338 239 K_HFLOAT_LEN, ! Length of data type 

3; 1339 240 ! address of value 

: 1379 ee ; BASS$K_COMMA_FOR ! comma format character 

; 1348 rk RETURN; 

: 134 244 1 END; ‘End of BASSOUT_H_DX_C 


0800 00000 -ENTRY BASSOUT_H_V_C, Save R11 3 2194 | 


te ste 4:58:23 UBAsatLSSRe SaaS rERATO. 882: 1 Page (08) 


| 
000000006 00 pO MOVL OTS$$A CUR. LUB, CCB : 2231 
Hi poe CB Bh ates MOVZBL 1E3ete bye. : $33) 
50 0000000060040 00 0000E MOVL easseane SUbF _PR1=104CR02, RO : | 
02 DD 00016 PUSHL #2 ; 
04 AC 9F 00018 PUSHAB ELEM ; | 
10 00018 PUSHL #16 : | 
1C DD 0001D PUSHL #28 : | 
0000000060040 04 FB OOO1F CALLS #4, BASSSAA_UDF_PRICROJ : | 
04 00027 RET + 2264 


| 
; Routine Size: 40 bytes, Routine Base: _BASSCODE + 0323 | 
} 
| 
{ 


n 9 
BASSUPI_TERM_10 16-Sep-1984 01:18:57 AX-11 Bliss-32 V4.0-74 Page 50 
1-007 ~ = 12-808 -1 38 a See YBASRTL Ske BASTERMIO.832;1 . (26) 
> 1345 45 1 GLOBAL ROUTINE BASSOUT_H_V_B ( ! print hfloat with blank format 
3 3 $ rk] 1 M ! element to print 
3 ; ‘ : : ) : NOVALUE = ! 
> 1349 rk 1 !+¢ 
H ; 29 20 : : FUNCTIONAL DESCRIPTION: 
: 1 ¢ 3 Print an hfloat number passed by value, with blank format 
; 3 24 i FORMAL PARAMETERS: 
: ! 2 28 ! ELEM. rh.v hfloat to print 
3; 1358 5 1 ! IMPLICIT INPUTS: 
3; 1359 59 1! 
3; 1360 60 1! OTSS$$A_CUR_LUB current Logical Unit Block 
: : 1 9} : } ISB$B_STTM_TYPE statement type of this I/0 statement 
; : 368 { IMPLICIT OUTPUTS: 
; 1365 3265 ; NONE 
; 1367 38 i COMPLETION CODES: 
ie Bag) 
: 1371 3271 i SIDE EFFECTS: 
: 1373 $538 1 NONE 
: 1378 sore 1 i 
TB BR seam 
> 1378 2278 
3; 1379 2279 $ GLOBAL REGISTER 
: 1380 2280 2 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
3 1381 2281 
: 1386 $50¢ ; CCB = .OTSS$A_CUR_LUB; 
: 1384 $583 i Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
3; 1385 2285 ! element transmit for prenpt ing or for printing. Therefore, based on the 
; 1338 $$56 statement type, either the INPUT or the PRINT UDF will be called. 
: 138 see p (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 C.CCB C198S8  STIN_ TYPED - ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_H, 
: ' data e 
3 1390 290 K_HFLOAT_LEN, : Length of data type 
3 1391 291 " ' address of value 
; 1338 $36 BAS$K_NO_FORM ! no format character 
3 139 29 : 
3 1394 294 RETURN; 
3; 1395 295 «(1 END; ‘End of BASSOUT_H_DX_B 


0800 00000 -ENTRY BASS$OUT_H_V_B, Save R11 : 2245 | 


| A TERM_10 
| sll 
5B 000000006 00 
FF71_ ~=CB 
50 <spetcayenet 
04 Ac 


0000009060040 04 


e. 10 

16-Sep- 
14-Sep- 

DO 00002 

9A 


D0 O00dE 


04 00027 
; Routine Size: 40 bytes, Routine Base: _BASSCODE + 0348 


1986 $135 


8: 
6: 


57 AX-11 Bliss-32_V4.0-7 
42 BASRTL.SRCIJBASTERMIO. 231 
0 


TS$$A_CUR -LUB, CcB 
-143(CCB) 
oo. oF Rt -104CR0J, RO 
oven 
#16 


#28 
#4, BASSSAA_UDF_PRICROJ 


10 

16-Sep-1984 01:18:57 AX-11 Bliss-32 V4.0-74 Pa 2 
Hep o YT T= TERA_t0 1$-e0-1984 FdRE23 | PeMsate sae Senereaago 32:1 9 295 
; 1397 38 1 GLOBAL ROUTINE BASSOUT_P_Dx_S ( ! print packed with semi format 
3 1338 97 «(1 ' element to print 
; 1736 38 : ) : NOVALUE = ; | 
: 1401 00 1 I++ | 
4 1e08 4 : FUNCTIONAL DESCRIPTION: 
; \e8e 08 : Print a packed decimal value passed by desc, with semi colon format | 
; 1406 03 ; FORMAL PARAMETERS: | 
: 1408 7 13 ELEM. rp.dx packed to print 
3 1409 06 1! | 
H 1019 318 : IMPLICIT INPUTS: 
; aig 31 ii OTS$$A_CUR_LUB current Logical Unit Block 
; 1917 $15 ; 1SB$B_STTM_TYPE statement type of this 1/0 statement 
3 1415 314 1°! IMPLICIT OUTPUTS: 
3: 1416 315 1! 
i itis ae she 
: 1419 318 1 | COMPLETION CODES: 
: 1420 319 1! 
3: 1421 320 1! NONE 
3 14 ; 321 1! 
3; 14 322 1! SIDE EFFECTS: 
3 14246 325. 1! 
3 1425 324 1! NONE 
> 1426 325 1! 
ae BBR 
; 1409 2328 2 BiGIN 
> 1431 $359 GLOBAL REGISTER 
: 1636 2332 CCB = K_CCB_REG : REF Bi CK C, BYTE); 
> 1434 23 MAP 
; ieee 2335 ELEM : REF BLOCK (8,BYTE); 
; 1637 334 ,, 0B = .OTS$$A_CUR_LUB; 
3 1439 2338 Btepaten to on A eek. Seteeteens oon eee mg es Fy BE tc 
; ! t or prompting or for printing. : ” 
: ees 360 choseeah Roan. either the INPUT or the PRINT UDF will be called. 
; 1268 3 ""  (BASSSAA_UDF_PR1 + .BASSSAA_UDF_PR1 [.CCB C1SB$B_STIM_TYPE] - ISBSK_BASSTTYLO + 1) (DSC$K_DTYPE_P, 
3 14446 4 : data type 
3 1445 34 -ELEM CDSC$W_LENGTH), ! Length of data type 
3 1446 345 . . : address of value 
3 ret 308 BASS$K_SEMI_FORM ! semicolon format character 
: TURN; 
: 1480 328 ayy : 'End cf BASSOUT_B_V_S 


BASSUPI _TERM_10 
“007 


; Routine Size: 


42 bytes, 


§ 


7E 
0000000060040 


Routine Base: 


oooopoge 90° 
FF 3 
000000006004 


-BASSCODE + 


onmowvoo7vwo7cfo 
FDonvVvcoroo 


D 10 
16-Sep-1984 
14-Sep-1984 


iE 


757 
23 


oT 
-1 


é 
aELEM, 
#4, BASSSAA_UDF_PRICROJ 


T 
TUR_L 
t8),~ 
AA_UbF_PR1-104[R0J, RO 


AX-11 B 
BASRTL S 


ss-32 V4.0-74 
afi BASTERMIO.8352;1 


P_DX_S, + gaye R11 


-(SP) 


Fa 


c-- 


| 
IRSeHaHs SBE IGE SU NaHE aa? 


4 Page 54 
BASRTL.SRC BASrERAtO 682; 1 . (285 


3 14 g 9 1 GLOBAL ROUTINE BASSOUT_P_DxX_C ( ' print packed with comma format 
3 14 1 ' element to print 

3 1c ¢ § 1 ) : NOVALUE = : 

: 14 § 4 i 14 

$ 1? 8 5 : : FUNCTIONAL DESCRIPTION: 

: 1623 | Print a packed decimal value passed by desc, with comma format 

: 1461 39 i FORMAL PARAMETERS: 

; 1268 11! ELEM. rp.dx packed to print 

3 1464 66 1! 

3 1t0? o7 : IMPLICIT INPUTS: 

: 1269 65 1! OTS$$A_CUR_LUB current Logical Unit Block 

5 re 6 : 1SB$8_STTM_TYPE statement type of this 1/0 statement 

; 1470 8 ! IMPLICIT OUTPUTS: 

> 147 * 1: NONE 

; 1278 m4 

3 iene Le: : COMPLETION CODES: 

igs TBE ghee 

> 1478 76 1) SIDE EFFECTS: 

3 1479 SB 

3; 1480 78 1 NONE 

a. ee 

; 1488 381 12 

; re $86 BEGIN 

+ 1486 32 GLOBAL REGISTER 

3 He +4 +H CCB = K_CCB_REG : REF BLOCK C, BYTE); 

: 1489 $3B9 MAP 

3 1eae $80 ELEM : REF BLOCK (8, BYTE); 

: 149¢ 330 CCB = .OTS$$A_CUR_LUB; 

3 149 91 '¢ 

3 1494 $08 ! Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
3; 1495 39 ! element transmit for prompt ing or for printing. Therefore, based on the 
r ice 398 : statement type, either the INPUT or the PRINT UDF will be called. 

: 1498 396 "  (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 [.CCB C1SB$B STIM_TYPE] - ISBSK_BASSTTYLO + 1)) (DSCSK_DTYPE_P, 
; ! a e 

3 1500 $05 -ELEM COSCS$W_LENGTHI, : Length of data type 

; 1501 99 ELEM, ' address of value 

3 1308 400 BASSK_COMMA_FOR ! comma format character 

2 150 401 > 

: 1504 40¢ RETURN; 

3; 1505 40 END; 'End of BASSOUT_P_Dx_C 


| 
| 
| 
| 
| 
| 
| 


mo —-—------ sr Cc — _—____— —$_$—____— — a 


F 10 
BASSUPI_TERM_10 16-Sep-1984 01:18:57 AX-11 Bliss-32 v4.0 
‘007 1a-Sep-19 4 a 56:42 EBASRTL SRe BASTERMIO. rs 2:1 
| 0800 00000 .ENTRY BASSOUT_P_Dx c. Save R11 

5B 000000006 00 00 0000 MOVL OTS$$A_TUR_LOB, CCB 
| 2 FF71 CB 9A 0000 MOVZBL -143(CTB) “f 
| 0 000000006004 p0 HOVE BASSSAA_ ubF y DE RO 

“ae po 1 PUSHL ELEM 
7E 4 8 C 00018 MOVZWL @ELEM, (SP) 
DD 0001F PUSHL # 
0000000060040 04 Fe 4 CALLS #4, BASSSAA_UDF_PRICROJ 


; Routine Size: 42 bytes, Routine Base: _BASSCODE + 0390 


—_——————— 


10 
| BASSUPI_TERM_10 ise -1984 01:18:57 AX-11 Bliss-32 V4.0-74 P 6 
#30 12-808- 1382 98:23 YBASRTL’ SRE IBASTERMGO. 692: 1 age 438 
; 1507 4 1 GLOBAL ROUTINE BASSOUT_P_Dx_B( ! print packed with blank format 
: : r 5 : +» ome } element to print 

6 3 = . 

; 1510 209 1 

; 1511 rt 1 !e¢ 

3 ! \§ rt : FUNCTIONAL DESCRIPTION: 

: aie 213 : } Print a packed decimal value passed by desc, with blank format 

; 1218 418 1 ! FORMAL PARAMETERS: 

; 13) 448 i ELEM.rp.d ked i 

3 } -rp.dx packed to print 

; 1319 $18 1! 

; 1520 417 1°! IMPLICIT INPUTS: 

: 1521 418 1! 

; 15 ¢ 419 1! OTSS$SA_CUR_LUB current Logical Unit Block 

; 2 ? r 9 : 1SB$B_STTM_TYPE statement type of this 1/0 statement 

; 1525 4 ; 1 ! IMPLICIT OUTPUTS: 

3; 1526 4 1! 

3; 1527 4246 1! NONE 

: 1528 425 1! 

3; 1529 426 1 ! COMPLETION CODES: 

3 33 427 1! 

3 133) 428 1! NONE 

3; 15 ¢ 429 1! 

3; 153 430 1 ! SIDE EFFECTS: 

3; 1534 431 1! 

3 1535 $38 1! NONE 

3; 1536 433 1! 

3 1537 434 1 !<- 

3; 1538 435 1 

3; 1539 436 BEGIN 

3; 1540 437 

3 1541 438 GLOBAL REGISTER 

; 1366 439 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3; 154 440 

3 1544 441 MAP 

3 1545 44 ELEM : REF BLOCK (8, BYTE); 

: 1268 44 

3 154 444 CCB = .OTSS$S$A_CUR_LUB; 

3; 1548 445 '¢ 

3 1549 446 ! Dispatch to the UDF level. Dispatching is done because this may be a PRINT 
3; 1550 447 ! element transmit for pronpt ing or for printing. Therefore, based on the 
3 133) 138 statement type, either the INPUT or the PRINT UDF will be called. 

: 1388 450 (BASSSAA_UDF _PR1 + .BASSSAA_UDF_PR1 C.CCB CISBSS STIA, TYPE) = ISBSK_BASSTTYLO + 1]) (DSCSK_DTYPE_P, 
; ! data e 

3; 1555 ~-ELEM COSC$W_LENGTH), : Length of data type 

; 1238 ELEM, ' address of value 

: 1320 BAS$K_NO_FORM ! no format character 

3; 1559 

3: 1560 


RETURN; 
END; ‘End of BASSOUT_P_DX_B 


H 10 
pada Sas! 16-Sep-1984 01:18:57 vA K-11 Bliss-32 V4.0-742 
1-007 14-Sep-1984 11:56:42 BASRTL.SRCJBASTERMIO.832; 1 
0800 00000 -ENTRY ortt +d P OX 8B, sexe R11 
58 000000006 00 00 00002 MOVL OTSS$A_CUR_LOB, 
0 FF CB 9A 00009 MOVZBL Oras (ta) 
50 eee | DO OO00E MOVL BASSSAA SUbF =PR1-104CROJ, RO 
03 DD 818 PUSHL #3 
4 AC go 01 PUSHL ELEM 
7E 4 Bf C 18 MOVZWL @ LER. -(SP) 
135 OD 1F PUSHL @# 
0000000060040 04 fe 854 coy #4, BASSSAA_UDF _PRICROJ 


; Routine Size: 42 bytes, Routine Base: _BASSCODE + 03C7 


pASs 1 TERM_10 


0800 0 
58 000000006 90 dO 
E 04 
04 aC ODD 
08 DD 
1B 0D 
000000006 00 FB 


Ser 9 11:56:42 


to input by reference 


A AX-11 at -32 v4.0 
BASRTL. SRei BASTERMIO. 3 231 


3 1 $e $38 1 GLOBAL ROUTINE BASSIN_G_R ( ! input gfloat by ref 
3; 156 4 1 i elemen 

3; 1564 460 1 ) : NOVALUE = i 

3; 1565 461 1 

s 1206 462 1 !44 

H ; 4 ret : FUNCTIONAL DESCRIPTION: 

; 1268 ret : Input a gfloat, the destination is passed by reference 

; ier 46 1/ FORMAL PARAMETERS: 

: 13eg ese 1 | ELEM. here to store the gfloat input 

: rg.r where to store the oat inpu 

3 1352 470 1: e . 

3; 1575 471 1°! IMPLICIT INPUTS: 

: 1 26 472 1: 

3; 157 473 1! OTS$$A_CUR_LUB current Logical Unit Bloc 

3 1378 oot . ISBSB_STTM_TYPE statement type of this 56 statement 
3; 1580 428 1! IMPLICIT OUTPUTS: 

3: 1581 477 1! 

3 1386 478 1: NONE 

3; 158 479 1: 

3 1584 480 1: COMPLETION CODES: 

3; 1585 481 1! 

3; 1586 48 1 i NONE 

3; 1587 483 1! 

; 1588 484 1! SIDE EFFECTS: 

3; 1589 485 1! 

3; 1590 486 1: NONE 

3; 1591 487 1! 

3 1336 488 1 i- 

3; 159 2489 1 

3: 1594 490 2 BEGIN 

3; 1595 491 

3 1596 249 GLOBAL wy et 

3; 1597 249 CCB = K_CCB_REG : REF BLOCK C, BYTE]; 

; 1598 494 

3; 1599 495 CCB = .OTSS$A_C 

> 1600 4% BASSSUDF_RL1 teesk UD TYPE SG. ' data type gf loat 

3 1601 497 K_GFCOA . ' Length of data type 
3: 1602 2498 CER ' address of destination 
: 1603 2499 BASSK NULL); ! null format character 
3: 1604 500 TURN; 

: 1605 501 1 3 ‘End of BASSIN_G_R 


.G_R, Save R11 
“COR!L LUB, CCB 


Sete Se Se Sete te Se 


roe 


BA 1 TERM_10 
oor 


0800 00000 
58 000000006 00 00 0000 
06 AE DO 00008 
10 00 88 
1¢ 0D 00 
000090006 00 B 000 
4 000 


16 
14- 


K 10 
w$ep-198¢ V1is6see — EBASRTLSRESBASTERALO-082;1 


! input hfloat by ref 
element to input by reference 


ype of this 1/0 statement 


! data type hfloat 

! Length of data type. 

' address of destination 
' null format character 


'End of BASSIN_H_R 


: 1607 3 1 GLOBAL ROUTINE BASSIN_H_R ( 

1608 1 bs OvALUE 

H : x 

: 161 5 1 

; 1611 1 !e¢ 

; 161 i FUNCTIONAL DESCRIPTION: 

3 1el2 509 } | Input an hfloat, the destination is passed by reference 
: 161 511 1 | FORMAL PARAMETERS: 

; 1819 i ii 

; 1918 \? : ELEM. rh.r where to store the hfloat input 
> 1620 515 1 § IMPLICIT INPUTS: 

: 1853 a8 fi OTS$$A_CUR_LUB ical Unit Block 
; i tl Unit 
18 se 1; TRSRBASARHBe © _‘Surrentnuo@jset bndniS't 
3 16 5 3 9 ; IMPLICIT OUTPUTS: 

Bl 

> 1629 524 1 | COMPLETION CODES: 

3; 16 525 1! 

bo Beg 8 ee 

> 163 528 1°! SIDE EFFECTS: 

ie BGT) ue 

He BN 

i 1688 “hh big pale 

> 1640 535 

> 1641 536 GLOBAL REGISTER 7 

3 eae 537 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

> 1644 539 CCB = .OTS$$A_CUR_LUB; 

3 1645 540 BASSSUDF_RL1 TDSCSK_DTYPE_H, 

: 1o68 3%] kK MECOAT LEN, 

> 1648 228 BASS$K_NULL); 

: 1649 Sete RETURN; 

: 1650 545 1 END; 


-ENTRY BASSIN_H_R, Save R11 
MOVL OTSS$A_COR_LUB, ccB 


LRL SP) 

PUSHL LEM 

PUSHL #1 

PUSHL #2 

cays #4, BASSSUDF_RL1 


Page 500 


. ; j 
eagyr stem. in rane mansunateatse. roe sf} 


i 
} 


; Routine Size: 26 bytes, Routine Base: _BASSCODE + 0408 


: 1651 2546 1 


& 


3 


#10 
P1_TERM_10 16-Sep-1986 01:18:57 VAX-11 BLiss-32 
SY 13-08-71 3be 94:88:25 
inp 
ele 


: 1603 47 1 GLOBAL ROUTINE BASSIN_P_DX ( nput packed decimal by desc. 
3 1654 rk 4 M Lement to input by reference 
3; 1655 4 1 ) : NOVALUE = 

3; 16 : 550 1 

3; 16 é 1 1 !e4 

H 1928 § 1 ! FUNCTIONAL DESCRIPTION: 

3; 165 555 1! 

; Hrs 222 ! Input packed decimal, the destination is passed by descriptor 

: 106¢ 228 1 ! FORMAL PARAMETERS: 

: 1882 233} i ELEM.rp.d here to store the packed 1 

3 ! -rp.dx where to store the packed input 

: 1665 a 4 ’ . 

3 1968 560 1 ! IMPLICIT INPUTS: 

3: 166 561 1! 

3 1668 266 1! OTS$S$A_CUR_LUB current Logical Unit Block 

; 1969 ryt ! ISBSB_STTM_TYPE statement type of this 1/0 statement 
3; 1671 565 1 ! IMPLICIT OUTPUTS: 

3 1676 566 1! 

3; 167 567 1! NONE 

3 1674 568 1! 

3; 1675 569 1 ! COMPLETION CODES: 

3 1676 570 1! 

3 1677 571 1! NONE 

3; 1678 26 & 

3; 1679 57 1 ! SIDE EFFECTS: 

3; 1680 574 1! 

3: 1681 2575 1! NONE 

3 1o8e are 1! 

3; 168 577 1 !<=< 

3 1684 578 1 

3; 1685 2579 BEGIN 

3 1686 2580 

3; 1687 2581 GLOBAL REGISTER 

3; 1688 $206 2 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3: 1689 583 2 

3 1690 584 § MAP 

: 1691 585 ELEM : REF BLOCK (8, BYTE); 

: 1696 2586 

: 169 587 CCB = .OTS$$A_CUR_LUB; 

> 1694 588 BASSSUDF_RL1 TDSCSK_DTYPE_P, ' data type 

3 1695 589 ELEM COSC$W_LENGTH), ! string length | 
3 1696 $209 scLEN. ' address of descriptor 
3; 169 591 BASS$K_NULL) ; ! null format character 
> 1698 $236 7 RETURN; 

3; 1699 593 1 END; ‘End of BASSIN_P_DX 


0800 00000 ENTRY BASSIN_P_DX, Save R11 
5B 000000006 90 D0 00002 OVL  OTS$$A7COR_CUB, CCB 
E D4 0000 CLRL 0 = (SP) 
04 AC DD 00008 PUSHL ELEM 
4 AC DD OQOOOE PUSHL ELEM 


BASRTL.SRCJBAST 


Page 485 


PASS PI_TERM_10 


3; Routine Size: 


27 bytes > 


N 10 
16-Sep-1984 01:18:57 AX-11 Blis 
1 =3ep-19 4 Oi 742 BASRTL. Re} 
15 DD 00011 PUSHL #21 
000000006 00 04 FB 00013 CALLS #4, BASSSUDF_RL1 
04 OOO1A RET 


Routine Base: _BASSCODE + 0425 


-32 V4.0- 
BASTERMIO 


74 
-B52;1 


Poor $3 


: 2593 


teas 
GASSUPT TERA_10 


: 1708 


1703 3397 


Name 
_BASSCODE 


File 


-$255$DUA28: CSYSLIBISTARLET.L32;1 


1 END 
598 0 ELUDOM 


Bytes 
1088 NOVEC,NOWRT, RD, 
Library Statistics 
Total ideded 
9776 10 


PSECT SUMMARY 


COMMAND QUALIFIERS 


8 11 
16-Sep-1 
14-Sep-1 


Be 9:58:22 


AX-11 Bliss-32_V4.0-7 
BASRTL.SRCIJBASTERMIO. 3 231 


!End of module - BASSUPI_TERM_10 


Attributes 
ce. eR, 40. WL. 
sewers ~~ Pages 
Percent Mapped 
0 581 


CON, PIC,ALIGN(2) 


Processing 
Time 


00:01.2 


Page 39) 


BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:BASTERM10/08J=0B)$ :BASTERMIO MSRC$:BASTERMIO/UPDATE=(ENHS:BASTERMIO 


Size: 


Run Time: 00:27.5 
Elapsed Time: 01:10.3 
Lines/CPU Min: 5676 


Lexemes/CPU-Min: 22450 
ponecy Used: 130 pages 
Compilation Complete 


1088 code + 0 data bytes 


SSS 


0032 ° H-BT13A-SE | T CORPORATION 
: VAX/ VMS V4.0 = PROPRIETARY 


